引用Excel后，看看这串代码，按自己的意思改改。 Dim xlApp As New Excel.Application Dim xlBook As Excel.Workbook Dim xlsheet As Excel.Worksheet Set xlBook = xlApp.Workbooks.Add("路径\名称.XLS") '你新建一个Excel保存，然后打开 Set xlsheet = xlBook.Worksheets(1) 't1 = Text0(1).Text 这些Text里的东西，你可以这样处理 't2 = Text1(0).Text sheet1里面cells(1,1)就是A1 't3 = Text2(2).Text cells(1,2)是A2，cells(2,1)是A2 't4 = Text3(1).Text 依次类推，可以用 i , j。把它们放到sheet1.cells()里面 Sheet.Cells(2,1)=Text0(1).Text Sheet.Cells(2,2)=Text1(0).Text Sheet.Cells(i , j)=Text1( i ).Text '如果想要多次保存，可以:（） Sheet1.Range("A1").End(xlDown).Offset(1,0).Select '到使用过的单元格底部，需要两行以上，你可以从第二行(2, j)开始记录 xlBook.Close SaveChanges :=True '以下代码为关闭Excel xlApp.Quit '其实前面Dim过后可以 xlApp.Visible = False Set xlApp = Nothing O(∩_∩)O~
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024