当前位置：文档之家 › 将excel中数据全部写入txt

将excel中数据全部写入txt

  • 格式：docx
  • 大小：28.76 KB
  • 文档页数：2

下载文档原格式

  / 2

合集下载

  1. 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

前2列方法
Private Sub CommandButton1_Click()
Dim Filename As String
Dim i&, Arr, t
Dim Data As String
Arr = [a1:a20]
t = [b1:b20]
Filename = "F:\SW\yizi.txt"
Open Filename For Output As #1
For i = 2 To 20
Data = Arr(i, 1) & "=" & t(i, 1)
Print #1, (Data)
Next i
Close #1
Dim swApp As Object
Dim Part As Object
Dim GtolAs Object
Dim longstatus As Long
Dim boolstatus As Boolean
Set swApp = CreateObject("SldWorks.Application") Set Part = swApp.ActiveDoc
Part.EditRebuild
End Sub
方法1 Private Sub CommandButton1_Click()
Dim Filename As String
Dim i&, Arr
Dim Data As String
Arr = [a1:a20]
Filename = "F:\SW\test.txt"
Open Filename For Output As #1
For i = 2 To 20
Data = Arr(i, 1)
Print #1, (Data)
Next i
Close #1
End Sub
方法2 Sub GetDataFromExcel()
Dim arr, brr, t
t = Timer
arr = edRange
ReDimbrr(1 To UBound(arr, 1))
For a = 1 To UBound(arr, 1)
brr(a) = arr(a, 1)
For b = 2 To UBound(arr, 2)
brr(a) = brr(a) &vbTab&arr(a, b)
Next
Next
Open "F:\SW\Test.txt" For Output As #1
Print #1, Join(brr, vbCrLf)
Close #1
MsgBox "用时：" & Format(Timer - t, "0.000秒") End Sub
方法3 Sub test()
Dim file As String, arr, i
'定义文本文件的名称
file = ThisWorkbook.Path& "\工资表.txt"
'判断是否存在同名文本文件，存在先行删除
If Dir(file) <> "" Then Kill file
'将当前的数据读入数组
arr = Sheet1.Range("b2").CurrentRegion
'使用print语句将数组中所有数据写入文本文件Open file For Output As #1
For i = 1 To UBound(arr)
Print #1, Join(Application.Index(arr, i), ",") Next
'关闭文本文件
Close #1
End Sub。