Application.ScreenUpdating = False
dim i as integer
For i = 1 To 20
ActiveSheet.Cells(i, 1).Formula = "=‘D:\[税金.xls]sheet1'!$A$"&i ’ 这里的路径用怎样用变量表示
ActiveSheet.Cells(i, 2).Formula = "=‘D:\[税金.xls]sheet1'!$B$"&i
Next i
ActiveSheet.Range("a1").CurrentRegion.Copy
ActiveSheet.Range("a1").PasteSpecial xlPasteValues
ActiveSheet.Range("a1").PasteSpecial xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
Dim Wb As Workbook
Set Wb = GetObject("D:\税金.xls")
Application.ScreenUpdating = False
Dim i As Integer
For i = 1 To 20
ActiveSheet.Cells(i, 1).Formula = Wb.Sheet(1).Range("A" & i) '这里的路径用怎样用变量表示
ActiveSheet.Cells(i, 2).Formula = Wb.Sheet(1).Range("b" & i)
Next i
ActiveSheet.Range("a1").CurrentRegion.Copy
ActiveSheet.Range("a1").PasteSpecial xlPasteValues
ActiveSheet.Range("a1").PasteSpecial xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
Wb.Close False
Set Wb = GetObject("D:\税金.xls")
Application.ScreenUpdating = False
Dim i As Integer
For i = 1 To 20
ActiveSheet.Cells(i, 1).Formula = Wb.Sheet(1).Range("A" & i) '这里的路径用怎样用变量表示
ActiveSheet.Cells(i, 2).Formula = Wb.Sheet(1).Range("b" & i)
Next i
ActiveSheet.Range("a1").CurrentRegion.Copy
ActiveSheet.Range("a1").PasteSpecial xlPasteValues
ActiveSheet.Range("a1").PasteSpecial xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
Wb.Close False
温馨提示:答案为网友推荐,仅供参考