将Excel数据复制到文本文件中

我已经完成了下面的代码，将Excel单元格数据复制到一个txt文件。 我必须为Excel中的每个单元格创build一个文本文件。 就像我在Excel中有n个单元格数据一样，我需要n个txt文件。

Sub ExportToNotepad() Dim wsData As Variant Dim myFileName As String Dim FN As Integer Dim p As Integer, q As Integer Dim sPath As String Dim myString As String Dim lastrow As Long, lastcolumn As Long Dim wb As Workbook Set wb = Workbooks.Open("C:\Users\sc00359878\Desktop\sample_excel.xlsx") lastrow = wb.Sheets("sheet1").Range("B" & Rows.Count).End(xlUp).Row lastcolumn = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column sPath = "C:\Users\sc00359878\Desktop\output\" For p = 1 To lastrow wsData = ActiveSheet.Range("B" & p).Value If wsData = "" Then Exit Sub myFileName = "sMove.txt" myFileName = sPath & myFileName FN = FreeFile Open myFileName For Output As #FN Print #FN, wsData Close #FN myString = "" Next p End Sub 

当我尝试运行它时，出现以下错误。

Answer 1

与VB的其他“风味”不同，您不能在VBScript中将variables声明为数据types，因为VBScript不是强types语言 。 换一种说法，

 Dim wsData As Variant 

应该

 Dim wsData 

你需要修复所有其他的variables声明。