16,722
社区成员




Dim excelXLS As Excel.Application
Dim excelWK As Workbook
Dim excelWS As Worksheet
Dim j As Integer = 0
excelXLS = CreateObject("Excel.Application")
excelXLS.Visible = True
excelWK = excelXLS.Workbooks.Open("C:\test.xlsx")
excelWS = excelWK.Worksheets(j + 1) '//选中sheet1 excelWK.Sheets.Add()
excelWK.Sheets("Sheet1").Select()
excelWS.Range("A1:Y10").Select()
excelWS.Range("A1:Y10").Copy()
excelWK.Sheets("Sheet" & (j + 2)).Select()
excelWK.ActiveSheet.Paste()
excelWS = excelWK.Worksheets(j + 2)
excelWS.Cells.Select()
'excelWS.Selection.ColumnWidth = 5
excelWS.Cells.ColumnWidth = 2
excelWS = excelWK.Worksheets(j + 1)
excelWK.Save()
excelWK.Close()