当前位置:编程学习 > VB >>

两个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
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,