怎么用vba把txt文档中的数据导入到excel表格中？

Posted 2023-05-17

我想把txt文档中的数据（仅数字）导入到excel表格中，图1是txt文档中源数据的格式;图2是我从网上找到的一个程序，结果运行后导入到excel中的结果如图3所示是带引号“"”的。怎样改动一下，只是把数字写入，不带引号。

参考技术A

如图，我画出来的这句。

改成这样：

Cells(rs, i + 1) = Replace(str_txt(i), """", "")

就是用替换函数Replace把双引号替换为空。

vba 把excel中的值复制粘贴到txt中

Open "c:\1.txt" For Append As #1
Selection.Paste
在Selection.Paste上报 对象不支持，该如何解决

Excel每行数据导出成txt.文件的VBA代码：
Sub DaoChu()
Dim I As Integer, J As Long, RW As Long
For I = 1 To ActiveSheet.UsedRange.Columns.Count
Open ThisWorkbook.Path & "\" & Cells(1, I) & ".txt" For Output As 1
For J = 2 To Cells(65536, I).End(3).Row
Print #1, Cells(J, I).Value
Next J
Close 1
Next I
MsgBox "数据导出完毕!", vbOKOnly, "导出成功"
End Sub 参考技术A vba写入txt见一下代码

如果想用copy的话，必须用到剪贴板
Dim MyData As DataObject
MyData.GetFromClipboard()
Open "c:\1.txt" For Append As #1
Print #1, MyData.GetText()

或者
dim str as string
str=[a1]
Open "c:\1.txt" For Append As #1
Print #1, str追问

抱歉 不是很懂，
Range("Q12:Q48").Select
Selection.Copy
Open "c:\1.txt" For Append As #1
该怎么把这段数据粘贴至1.txt中。。。

追答

Dim MyData As DataObject
Range("Q12:Q48").copy
MyData.GetFromClipboard()
Open "c:\1.txt" For Append As #1
Print #1, MyData.GetText()

追问

在MyData.GetFromClipboard()上面报这个错

追答Sub test()
    Dim MyData As DataObject
    Dim MyStr As String
    Set MyData = New DataObject
    Range("Q12:Q48").Copy
    MyData.GetFromClipboard
    MyStr = MyData.GetText
    Open "c:\\1.txt" For Append As #1
    Print #1, MyStr
    Close #1
End Sub

追问

不好意思，这次在Dim MyData As DataObject报这个错

追答

工具》引用》Miscrosoft Forms 2.0 Object Library打钩，确定。

追问

表示没有，是不是因为我是03的office的缘故

追答

工具》引用》浏览
xp:C:\Windows\System32\FM20.dll
win7:C:\Windows\SysWOW64\FM20.dll

本回答被提问者采纳