Save Excel Data to Txt File With no quotes

最新推荐文章于 2025-03-29 10:47:59 发布

转载最新推荐文章于 2025-03-29 10:47:59 发布 · 138 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/eleanor-wsm/archive/2013/04/08/3007009.html

本文介绍了一个VBA子程序，该程序能够从指定的Excel工作表中读取数据，并将其保存到一个新的文本文件中。通过定义起始和结束的行列索引，可以灵活地选择要导出的数据范围。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

First: Add Microsoft Scripting Runtime Reference in Tools\References

Second: Code

VBA Code

 1 Public Sub SaveData(ByRef ws As Worksheet, ByVal FirstRowIndex As Long, ByVal LastRowIndex As Long, ByVal FirstColumnIndex As Long, ByVal LastColumnIndex As Long, ByVal FileName As String)
 2     'Dim ws As Worksheet
 3     'Set ws = Application.ActiveSheet
 4 
 5     Dim i As Long
 6     Dim j As Long
 7     Dim k As Long
 8     Dim m As Long
 9     Dim NewWorkBook As Workbook
10     Dim NewWorkSheet As Worksheet
11     Dim fso As FileSystemObject
12     Dim txtStream As TextStream
13         
14     Set NewWorkBook = Application.Workbooks.Add
15     Set NewWorkSheet = NewWorkBook.Sheets(1)
16     
17     Set fso = New FileSystemObject
18     Set txtStream = fso.CreateTextFile(FileName, Overwrite:=True, Unicode:=True)
19     
20     For i = FirstRowIndex To LastRowIndex
21         j = i - FirstRowIndex + 1
22         For k = FirstColumnIndex To LastColumnIndex
23             m = k - FirstColumnIndex + 1
24             NewWorkSheet.Cells(j, m).Value = ws.Cells(i, k)
25             
26             If k = LastColumnIndex Then
27                 txtStream.WriteLine ("")
28             Else
29                 If NewWorkSheet.Cells(j, m).Value <> "" Then
30                     txtStream.Write (NewWorkSheet.Cells(j, m).Value + vbTab)
31                 End If
32             End If
33         Next k
34     Next i
35    
36    txtStream.Close
37    NewWorkBook.Close
38 End Sub

转载于:https://www.cnblogs.com/eleanor-wsm/archive/2013/04/08/3007009.html