Question

我正在努力解决一些问题。我有一个大的.csv文件，有4列（名字，姓氏，识别号码，性别）和许多行与相应的个人。我没有使用VBA，但我正在尝试编写一个读取excel文件的宏，并将数据放入带有空格分隔符的txt文件中。

我使用了一个网站教程并提出了以下内容，但是，这似乎是错误的。

Sub test()

Dim myFile As String
Dim rng As Range
Dim cellvalue As Variant
Dim i As Integer
Dim j As Integer

myFile = Application.DefaultFilePath & "\Book1.csv"

Set rng = Selection

Open myFile For Output As #1

For i = 1 To rng.Rows.Count
For j = 1 To rng.Columns.Count
    cellvalue = rng.Cells(i, j).Value

    If j = rng.Columns.Count Then
        Write #1, cellvalue
    Else
        Write #1, cellvalue,
    End If

Next j
Next i

Close #1

End Sub

想法是在excel文件中放置一个命令按钮，编写此代码，将宏分配给按钮，选择有问题的数据，然后点击按钮。如果有人愿意帮助一个新人，那将是你的欣赏。

Answer 1

本教程适用于此：http://www.excel-easy.com/vba/examples/write-data-to-text-file.html

更改打印＃1的写入＃1

将csv文件读入文本文件

1 个答案: