将excel中数据全部写入txt

前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。