7,785
社区成员




Dim excel_App As Excel.Application
Dim excel_Book As Excel.Workbook
Dim excel_sheet As Excel.Worksheet
Set excel_App = CreateObject("Excel.Application")
excel_App.Visible = False
Set excel_Book = excel_App.Workbooks.Open("C:\Users\WR\Desktop\A文件.xlsx")
Set excel_sheet = excel_Book.Worksheets("Sheet1")
a(i,j)=excel_sheet.cells(i,j)
a(i,j)=2a(i,j)
excel_sheet.cell(i,j)=a(i,j)
如果再读取一次c(i,j)=excel_sheet(i,j)
那么 c(i,j)是原来的值还是乘以了2倍的值啊
Dim excel_App As Excel.Application
Dim excel_Book_A As Excel.Workbook
Dim excel_sheet_A As Excel.Worksheet
Dim excel_Book_B As Excel.Workbook
Dim excel_sheet_B As Excel.Worksheet
Set excel_App = CreateObject("Excel.Application")
excel_App.Visible = False
Set excel_Book_A = excel_App.Workbooks.Open("C:\Users\WR\Desktop\A文件.xlsx")
Set excel_Book_B = excel_App.Workbooks.Open("C:\Users\WR\Desktop\B文件.xlsx")
Set excel_sheet_A = excel_Book_A.Worksheets("Sheet1")
Set excel_sheet_B = excel_Book_B.Worksheets("Sheet1")
好像是这样子,自己试试不就知道了?