Edge
Chrome
Firefox
D列有N个代码（代码个数不定），例如：
000001.SZ
000002.SZ
000003.SZ
000004.SZ
000005.SZ
000006.SZ
000007.SZ
一、现状，
我很土的手工算行数，然后一行一行写入1.txt：
resultfile = "D:\1.txt"
Open resultfile For Append As #1
ttr = Worksheets("sheet1").[D1].Value
Print #1, ttr
ttr = Worksheets("sheet1").[D2].Value
Print #1, ttr
……N行重复代码，读取D3、D4、D5写入txt
Close #1
**
二、改进需求：**
遍历D列，判断总行数（例如用length判断是否为空）。
然后使用循环写入txt。
先谢过了。。
000001.SZ
000002.SZ
000003.SZ
000004.SZ
000005.SZ
000006.SZ
000007.SZ
一、现状，
我很土的手工算行数，然后一行一行写入1.txt：
resultfile = "D:\1.txt"
Open resultfile For Append As #1
ttr = Worksheets("sheet1").[D1].Value
Print #1, ttr
ttr = Worksheets("sheet1").[D2].Value
Print #1, ttr
……N行重复代码，读取D3、D4、D5写入txt
Close #1
**
二、改进需求：**
遍历D列，判断总行数（例如用length判断是否为空）。
然后使用循环写入txt。
先谢过了。。
3
以下是使用VBA语言判断Excel D列代码，并将数据写入txt文件的示例代码： Sub ExportToTxt() Dim rowCount As Long Dim i As Long Dim filePath As String Dim fileNum As Integer '获取总行数 rowCount = Worksheets("Sheet1").Cells(Rows.Count, 4).End(xlUp).Row '设置输出文件路径 filePath = "C:\Users\User\Desktop\output.txt" '打开文件 fileNum = FreeFile() Open filePath For Output As #fileNum '循环写入数据 For i = 1 To rowCount Print #fileNum, Cells(i, 4).Value Next i '关闭文件 Close #fileNum MsgBox "数据已成功导出到txt文件！" End Sub 在此示例代码中，我们使用了 FreeFile 函数来生成一个可用的文件号，然后使用 Open 和 Close 函数打开和关闭txt文件。Print语句将文本数据写入txt文件。 请注意，示例代码中的文件路径是硬编码的。您可以根据自己的需求更改文件路径。
京公网安备 11010802031449号