vb怎么两个excel表格复制

1.求高手告诉VB中两个excel间复制问题

代码 Sub test()Dim wb1 As Workbook, wb2 As WorkbookSet wb1 = Workbooks.Open("E:\aa.xls", ReadOnly = False) '打开指定路径下的aa.xlsSet wb2 = Workbooks.Open("E:\bb.xls", ReadOnly = False) '打开指定路径下的BB.xlswb1.Worksheets(1).Rows("5:100").Copy wb2.Worksheets(2).Rows("5:100") '复制wb1.Closewb2.Savewb2.CloseEnd Sub。

2.求高手告诉VB中两个excel间复制问题

代码

Sub test()

Dim wb1 As Workbook, wb2 As Workbook

Set wb1 = Workbooks.Open("E:\aa.xls", ReadOnly = False) '打开指定路径下的aa.xls

Set wb2 = Workbooks.Open("E:\bb.xls", ReadOnly = False) '打开指定路径下的BB.xls

wb1.Worksheets(1).Rows("5:100").Copy wb2.Worksheets(2).Rows("5:100") '复制

wb1.Close

wb2.Save

wb2.Close

End Sub

3.VB复制 excel

不用FSO的复制文件夹得方法？用API函数 SHFileOperation以下是使用SHFileOperation删除复制移动文件的例子，可以复制文件夹Private Type SHFILEOPSTRUCT hwnd As Long wFunc As Long pFrom As String pTo As String fFlags As Integer fAnyOperationsAborted As Long hNameMappings As Long lpszProgressTitle As String '只有在 FOF_SIMPLEPROGRESS 时用End TypePrivate Declare Function SHFileOperation Lib _"shell32.dll" Alias "SHFileOperationA" (lpFileOp _As SHFILEOPSTRUCT) As Long'wFunc 常数'FO_COPY 把 pFrom 文件拷贝到 pTo。

Const FO_COPY = &H2'FO_DELETE 删除 pFrom 中的文件（pTo 忽略）。Const FO_DELETE = &H3'FO_MOVE 把 pFrom 文件移动到 pTo。

Const FO_MOVE = &H1'fFlag 常数'FOF_ALLOWUNDO 允许 Undo 。Const FOF_ALLOWUNDO = &H40'FOF_NOCONFIRMATION 不显示系统确认对话框。

Const FOF_NOCONFIRMATION = &H10'FOF_NOCONFIRMMKDIR 不提示是否新建目录。Const FOF_NOCONFIRMMKDIR = &H200'FOF_SILENT 不显示进度对话框Const FOF_SILENT = &H4'例子：Dim SHFileOp As SHFILEOPSTRUCT' 删除SHFileOp.wFunc = FO_DELETESHFileOp.pFrom = "c:\config.old" + Chr(0)SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMATIONCall SHFileOperation(SHFileOp)' 删除多个文件SHFileOp.wFunc = FO_DELETESHFileOp.pFrom = "c:\config.old" +Chr(0) + "c:\autoexec.old"+Chr(0)SHFileOp.fFlags = FOF_ALLOWUNDOCall SHFileOperation(SHFileOp)' 拷贝SHFileOp.wFunc = FO_COPYSHFileOp.pFrom = "c:\t"SHFileOp.pTo = "d:\"SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMMKDIRCall SHFileOperation(SHFileOp)' 移动SHFileOp.wFunc = FO_MOVESHFileOp.pFrom = "c:\config.old" + Chr(0)SHFileOp.pTo = "d:\t"SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMATIONCall SHFileOperation(SHFileOp)或者shell "cmd.exe /c xcopy "+chr(34)+"C：\新建文件夹 c:\aa /q /e" +chr(34)。

4.怎样用VB把另一个EXCEL中的内容复制到当前EXCEL中

新建一个宏，里面内容为：

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

然后运行就可以了。

5.vb如何复制excel

实验可行Private Sub CommandButton1_Click()On Error Resume Next'先取消tt.xlsx的密码ThisWorkbook.Password = ""Dim FolderPicker As FileDialogSet FolderPicker = Application.FileDialog()FolderPicker.InitialFileName = Interaction.Environ("USERPROFILE") & "\Documents\"If FolderPicker.Show = -1 ThenThisWorkbook.SaveCopyAs FolderPicker.SelectedItems(1) & "\ss.xlsx"End If'恢复tt.xlsx的密码ThisWorkbook.Password = "556"End Sub。