excel vb 编程

来源：百度知道 编辑：UC知道 时间：2024/05/25 02:05:23
编制了一个excel表，填列6行3列，然后编制一个宏，要实现把这些数都取出来，而且中间用逗号分隔，怎么才能实现啊？
补充一下，数取出来后放入一个新的.TXT文档
那个代码是没错，我忘记说了，我希望的是继续保持原来的格式。就是分行分列的

alt+F11，新建模块，复制代码进去。然后到excel界面选中你要取数的区域。按alt+F8运行宏abc就行了.保存在和你excel文件同一个目录下，文件名为:新建文本文件.txt
Sub abc()
Dim str As String
Dim rng As Range
For Each rng In Selection
str = str & rng.Text & ","
Next rng
Dim myFileName As String
myFileName = "新建文本文件.txt"
Open ThisWorkbook.Path & "\" & myFileName For Output As #1
Print #1, str
Close #1
MsgBox "文件保存成功!"
End Sub

不用弄宏那么麻烦，你可以把你的工作簿另存为CSV(一种以逗号分割的文本文档)格式，然后以记事本的方式打开就可以了，要是非得保存为文本的话，可以把CSV文件另存为TXT就可以了

将文件导出成TXT就好了啊，导出时分隔符可选，可自定义的！