meimei2022@ 2022-09-09 16:18 采纳率: 100%
浏览 40
已结题

VBA一张工作薄里的内容,复制到另一张工作薄中

1、需要把客户工作薄中的信息,保存至数据库工作薄中,客户信息工作表,复制和粘贴区域都有显示,但是数据未到粘贴区域中

2、Sub 客户信息保存()

Dim wb As Workbook
Dim curSheet As String

'除去表头,所有行选中

Range("A2:F10000").Select

'复制当前页内容

Selection.Copy

curSheet = "客户信息"

'打开要保存内容的数据库工作簿,激活客户信息表

Set wb = Workbooks.Open _
(ThisWorkbook.Path & "\4.3 数据库.xlsx")

With wb
.Worksheets(curSheet).Range("A1:F10000").ClearContents '清空原内容
.Worksheets(curSheet).Activate
.ActiveSheet.Range("A1:F10000").Select
.ActiveSheet.Paste '(报错处)
.Save
.Close

End With

End Sub

3、运行结果及报错内容

运行时错误'1004':
应用程序定义或对象定义错误

4、想把客户工作薄的信息能够以文本形式,存入到数据库工作薄的客户信息表中。

  • 写回答

1条回答

      报告相同问题?

      问题事件

      • 系统已结题 9月18日
      • 已采纳回答 9月10日
      • 创建了问题 9月9日

      悬赏问题

      • ¥40 python,计算机程序运行结果很奇怪
      • ¥15 有关时间计算器的问题
      • ¥200 Chrome浏览器自动保存密码需要解密!来人
      • ¥18 关于#c语言#的问题:如何把下面几个代码放在一起编序号,然后输入对应数字运行对应代码,还可以返回重输
      • ¥30 windows下无法运行go test的问题
      • ¥15 多个Rigify骨骼 导入一起 后 没有 控制器面板
      • ¥15 想问一下sprak ada语言的pre和post怎么设
      • ¥15 使用python将分子模拟输出.gro文件
      • ¥15 港诡实录的背包系统拆解
      • ¥15 宽带IP网络路由器的初始路由表和最终路由表