两个EXCEL的问题。(求助)
问题:A,B两个EXCEL文件,其中A文件有数据,B文件固定格式。现在我每次都需要将A文件中的数据选择性的复制粘贴到B文件中(A,B两个文件均为多个sheet页)请问,能否用VBA语句实现自动化功能。。。。。。。。。
如果可以的话,需要VBA语句大概那块儿知识。。。。。谢谢 --------------------编程问答-------------------- 不知道你的两个 EXCEL文档是啥样的。
参考一下这个代码吧:
' Excel VBA 代码
Option Explicit
Private Sub Main()
Dim objWbkA As Workbook, objShtA As Worksheet
Dim objWbkB As Workbook, objShtB As Worksheet
Dim i&, j&, k&
Set objWbkA = Workbooks(1) ' A.xls
'用下面这种方式要注意文件名、Office版本,也许会有差别
'Set objWbkA = Workbooks("A.xls")
Set objWbkB = Workbooks(2) ' B.xls
' 你自己要确保前面两个引用的正确性
For i = 1 To objWbkB.Sheets.Count
Set objShtA = objWbkA.Sheets(i)
Set objShtB = objWbkB.Sheets(i)
For j = 3 To 200 '要读取的行范围
For k = 1 To 15 ' 列范围
' 逐个单元格读取赋值
objShtB.Cells(j, k).FormulaR1C1 = _
objShtA.Cells(j, k).FormulaR1C1
Next
Next
Next
End Sub
补充:VB , VBA