Sub asdf()
With Workbooks("工作薄二.xls").Sheets("B") .[b5:b35]
Workbooks("工作薄一.xls").Sheets("A").[E71:e108]
End Sub
工作薄二的B表读取工作薄一的A表[E71:e108] 这个范围内容
Sub 读取数据()
Workbooks("A").Sheets("A表").Range("b44:b73") = Workbooks("B").Sheets("B").Range("e71:e100")
End Sub
这样写行吗？
å
¶ä¸aãb为两个excelçè·¯å¾
Function recompose_excel(a,b)
Set objExcel = CreateObject("Excel.Application")
objExcel.DisplayAlerts = False
Set ExcelBook_S = objExcel.Workbooks.Open(b)
objExcel.WorkSheets("Sheet1").select'éæ©Sheet1
objExcel.ActiveSheet.UsedRange.Copy'æ·è´è¡¨æ ¼Sheet1å½ä¸çå 容
objExcel.ActiveWorkBook.Saved = True
objExcel.WorkBooks.Close
Set ExcelBook_S = Nothing
Set ExcelBook_T = objExcel.Workbooks.Open(a)
objExcel.WorkSheets("Sheet1").select'éæ©Sheet1
ExcelBook_T.ActiveSheet.Range("A1").PasteSpecial
ExcelBook_T.Save
ExcelBook_T.close
Set ExcelBook_T = Nothing
objExcel.quit
End Function
Function recompose_excel(a,b)
Set objExcel = CreateObject("Excel.Application")
objExcel.DisplayAlerts = False
Set ExcelBook_S = objExcel.Workbooks.Open(b)
objExcel.WorkSheets("Sheet1").select'éæ©Sheet1
objExcel.ActiveSheet.UsedRange.Copy'æ·è´è¡¨æ ¼Sheet1å½ä¸çå 容
objExcel.ActiveWorkBook.Saved = True
objExcel.WorkBooks.Close
Set ExcelBook_S = Nothing
Set ExcelBook_T = objExcel.Workbooks.Open(a)
objExcel.WorkSheets("Sheet1").select'éæ©Sheet1
ExcelBook_T.ActiveSheet.Range("A1").PasteSpecial
ExcelBook_T.Save
ExcelBook_T.close
Set ExcelBook_T = Nothing
objExcel.quit
End Function
温馨提示：答案为网友推荐，仅供参考
第1个回答 2015-10-15
看不出你要做什么。好像这无法执行吧追问
这个无法运行
1。二个工作薄同时打开，一个工作薄提取另一个工作薄内容
这个无法运行
1。二个工作薄同时打开，一个工作薄提取另一个工作薄内容
这个无法执行，题目和下面文字都说明了
追答Sub 读取数据()
Dim I, J As Integer
J = 71
For I = 5 To 35
Workbooks("工作簿1").Sheets("A").Cells(I, 2) = Workbooks("工作簿2").Sheets("B").Cells(J + I - 5, 5)
Next I
End Sub
是这样的，能说一下这个(j+l-5，5)是什么意思
追答建议你自己做一下单步运行，跟踪其变量的变化值。不然你不可能学会编程的
本回答被提问者采纳