vba工具

Sub test() Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook

Set xlApp = New Excel.Application

Set xlBook = xlApp.Workbooks.Open("d:\test.xlsx")

Dim sheet As Excel.Worksheet

Set sheet = xlBook.Worksheets(1)

Dim ss As String

'"a" ,_ For i = 1 To sheet.Range("A1").End(xlToRight).Column     Sheet2.Cells(i, 1) = """" & sheet.Cells(1, i) & """ " & "," & " _" Next End Sub