怎样用VB把另一个EXCEL中的内容复制到当前EXCEL中
例如在当前打开的EXCEL中创建按钮，点击按钮后把“E:\files\工作报告.XLS”中sheet1的D4到Q18中的内容复制到当前工作表sheet1中的D6到Q20中。急急急！
右键点车间（1）控件，设置格式，最后一个标签“控制”，单元格链接处点到比如sheet1的g1，确定。
在sheet2的a1输入
=if(sheet1!g1,"车间（1）","车间（2）")
就可以了。
Sub OpenAndClose()
Workbooks.Open Filename:="E:\files\工作报告.XLS" '打开指定的文件
ThisWorkbook.Sheets(1).Range("d6:q20") = Sheets(1).Range("d4:q18")
ActiveWorkbook.Close savechanges:=False '关闭打开的文件
End Sub
然后运行就可以了。追问
试过了，只是把“E:\files\工作报告.XLS”打开又关闭了，内容没有复制过来
追答你看下其他 工作表里有没有？或者你要复制的工作表不是第一个工作表？
你根据实际情况修改下代码~
vba如何实现将一个EXCEL文件中(关闭的文件)的SHEET页复制到当前的EXCEL...
如果复制源文件中第一个工作表内容到当前工作簿第一个工作表中，用下列代码：Sub copySheet()Dim wkbk As Workbook Set wkbk = Workbooks("book2") '先打开要复制的文件 wkbk.Sheets(1).UsedRange.Copy '复制源文件中第一个工作表的内容 ThisWorkbook.Sheets(1).Range("A1").Paste '粘贴到当前...
用VB6.0新建excel表格,并复制另一个已有的sheet1,复制到新建的表格中...
Set xlBook1 = MyExcel.Workbooks.Open("C:\\Documents and Settings\\Administrator\\桌面\\桌面.xls")Set xlSheet = xlBook.Sheets("试验")Set xlSheet1 = xlBook1.Sheets("sheet1")xlSheet.Range("A:IV").Copy Destination:=xlSheet1.Range("A1") ‘这就是复制到语句 xlBook.Save xlBook...
利用vb如何把excel。工作薄1中的某个工作表完整的复制或移动,到另一...
x=xls.Workbooks("***1.xls").Sheets(1).Range("A1:D8").value xls.Workbooks("***2.xls").Sheets(1).Range("A1:D8")=x 如果你VBA不错话，这代码应该能看懂
EXCEL 如何用VBA语言将一个EXCEL文件中不同sheet中的同一列数据按顺序...
1).End(xlUp).CurrentRegion.Columns.Count End With '确定其他工作第一行是否为标题行 '如果有标题行，则复制时应不包含标题行 Dim Response, r As Integer Response = MsgBox("要合并数据的工作表中第一行为标题行吗？", vbYes...
excel的vb中单击命令按钮把sheet1中的A列内容复制到sheet6中A列
软件版本：Office2010 方法如下：1.开发工具，插入，按钮：2.按下鼠标，拖动，并放开，在新弹框中点击新建：3.输入如下代码：4.返回Excel，点击按钮1：5.Sheet6中A1的内容，就等于Sheet1中A1的内容了：
excel中用VB代码从sheet1复制内容到sheet2
第一个问题:假如要把sheet1中A1：B15的内容复制到sheet2的B5:C19,如下 Sub Copy()sheets("sheet1").select Range("A1:B15").Select Selection.Copy sheets("sheet2"),select Range("B5").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _False, Transpose:=False...
...把一个工作簿中的一个工作的内容复制到另一个工作簿中的一个工作表...
下面代码把c:\\1.xls中Sheet1工作表的内容拷贝到另外一个新建工作表中，并保存为“c:\\2.xls”Private Sub Command1_Click()Dim S() As String, i As Integer, j As Integer Dim xlApp Dim xlBook Dim xlSheet Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象 xlApp.Display...
怎样实现用vb导入excel表格
首先，在VB中添加对Excel对象库的引用。然后，通过创建Excel应用程序对象（Application）实例来打开Excel文件。接着，获取工作簿（Workbook）和工作表（Worksheet）对象，从而访问Excel中的数据。使用合适的函数（例如Range或Cells）来读取工作表中的数据，并将其导入到VB的本地数据结构中。此外，可以使用循环...
【excel+vba】如何查找某个表格里的数据并且将相关内容复制到新的表格...
如：vlookup()、match（）+indirect（）组合、index（）、offset（）、、VBA代码可以先录制一个，就是先到汇总表，输入标题和学校名（分位于一列两行），然后开始录制，激活汇总表（就是点击打开汇总表），然后用筛选-高级筛选，筛选出对应数据，然后复制到查询表相应位置，结束宏录制 ...
vb中如何将数据导出到excel
介绍下面通过一步一步的介绍，如何通过VB.NET来读取数据，并且将数据导入到Excel中。第一步：打开VS开发工具，并且添加引用。然后选择。Microsoft Excel 12.0 object library and。Microsoft Excel 14.0 object library。第二步：创建一个Excle在你的电脑中。第三步：在VS中写入如下代码：Imports System....
