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

Posted 2023-05-17

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了怎么用vba把txt文档中的数据导入到excel表格中？相关的知识，希望对你有一定的参考价值。

我想把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报这个错