Vba 各位，放假打扰了！我想用vba批量复制一个excel工作簿（产品相关信息的模板），然后工作簿根据sheet1列重命名，sheet1列是产品的名字。然后在重命名的工作簿里边有两个表格需要改为相对应的sheet1产品的名字和sheet2产品编码的名字。目前基础薄弱，实在是弄不出来了，还请哪位有时间帮忙看一下 谢谢了
0条回答 默认 最新
- 2022-09-09 16:18回答 1 已采纳 添加一个模块，弄一个函数 Sub XXX() Range("A2:F1000").Select Selection.Copy Workbooks.Open Filename:
- 2022-11-26 22:09回答 3 已采纳 好像需求描述还有些二义，例如是整列覆盖？还是在目标表对应列最后一行追加？是两个独立表格文件两个“工作簿”？还是可以理解为同一个文件（工作簿）中的两个不同“工作表”？有没有需指定“工作表”中Sheet？
- 2022-11-22 14:43回答 2 已采纳 On Error Resume Next容错或者写一个函数遍历所有sheet是否存在名字为你那个工作表的名称，存在再继续 On Error Resume Next If Sheets("xxx") I
- 2022-11-09 17:27不想打代码但是却在打代码的W的博客 这段时间工作需要一直在用VBA，一些经验分享
- 2019-03-12 17:53回答 4 已采纳 VBA：用 Dir() 函数完成多工作簿合并 一 合并之前的文件夹和文件文件夹文件 二 代码 Sub 多工作簿合并_Dir函数方法() Dim fName As String, fPath A
- 2021-04-09 21:31回答 7 已采纳 如果写VBS： Sub a() Dim fso Dim fld Dim fil Dim xls Dim bok Dim sht Dim i
- 2022-11-29 08:36回答 4 已采纳 常规实现思路是障眼法，工作簿文件被打开了，但是用户看不到而已。代码如下。 Sub CSDNTest() Dim ExcelPath, ExcelName, ExcelShtName As S
- 2019-08-11 17:19野生研究员的博客 此脚本用于根据sheet1中的第一列从第三行开始的数据新建工作簿并重命名 '2.复制第一列和对应的列的值 '3.调整新建工作簿的列宽 ScreenUpdating = False '关闭屏幕刷新 Dim sCount As Long '列数 Dim sCol As ...
- 2022-01-05 16:11回答 1 已采纳 通过vba对象word进行遍历，然后把表内内容进行读取再写到单元格
- 2022-01-05 15:58回答 1 已采纳 通过vba进行遍历，然后把文件名读取下来，并同时通过word的dom对象打开word读取页数
- 2022-07-26 19:17回答 2 已采纳 Set xlBook = app.Workbooks.Open(FileName) ==>Set xlBook =Application.Workbooks.Open(FileName) 或直接
- 2024-07-15 11:07Tassel_YUE的博客 根据一列数据，批量创建并重命名工作表。
- 2023-04-17 11:00回答 3 已采纳 On Error Resume Next容错或者写一个函数遍历所有sheet是否存在名字为你那个工作表的名称，存在再继续 On Error Resume Next If Sheets("xxx") I
- 2021-04-05 19:59soapcmd的博客 我们的任务是将a.xlsx的Sheet1和b.xlsx的Sheet1复制到x.xlsx的Sheet xxx之前 确保启动时光标在test.xlsm中 Dim i As Integer For i = 1 To Workbooks.Count Cells(i, 1) = Workbooks(i).name Next
- 2019-07-04 14:59Mercy92的博客 根据sheet1所列名称，添加并重命名新的工作表。 二、实现 1.按照从前往后的顺序 Sub cre_ren_sheets() Dim num% /* 定义为integer*/ num = Application.WorksheetFunction.CountA(Sheet1.Range("A:A")) /* num...
- 没有解决我的问题, 去提问
问题事件
系统已结题
4月13日
创建了问题
4月5日
悬赏问题
- ¥200 csgo2的viewmatrix值是否还有别的获取方式
- ¥15 Stable Diffusion，用Ebsynth utility在视频选帧图重绘，第一步报错，蒙版和帧图没法生成，怎么处理啊
- ¥15 请把下列每一行代码完整地读懂并注释出来
- ¥15 pycharm运行main文件，显示没有conda环境
- ¥15 寻找公式识别开发，自动识别整页文档、图像公式的软件
- ¥15 为什么eclipse不能再下载了？
- ¥15 编辑cmake lists 明明写了project项目名，但是还是报错怎么回事
- ¥15 关于#计算机视觉#的问题：求一份高质量桥梁多病害数据集
- ¥15 特定网页无法访问，已排除网页问题
- ¥50 如何将脑的图像投影到颅骨上