自定义博客皮肤VIP专享

*博客头图：

点击选择上传的图片

格式为PNG、JPG，宽度*高度大于1920*100像素，不超过2MB，主视觉建议放在右侧，请参照线上博客头图

请上传大于1920*100像素的图片！

博客底图：

点击选择上传的图片

图片格式为PNG、JPG，不超过1MB，可上下左右平铺至整个背景

栏目图：

点击选择上传的图片

图片格式为PNG、JPG，图片宽度*高度为300*38像素，不超过0.5MB

主标题颜色：

RGB颜色，例如：#AFAFAF

Hover：

RGB颜色，例如：#AFAFAF

副标题颜色：

RGB颜色，例如：#AFAFAF

预览取消提交

自定义博客皮肤

上一步保存

weixin_42289020的博客

原创 CSDN博客个人账号注册与登录

CSDN博客个人账号注册与登录

2023-03-02 20:18:51 7266

原创使用Python生成随机整数

Python生成随机整数

2023-03-01 12:40:18 454

原创 VBA实现点击按钮自选文件复制数据至当前工作薄

功能需求：点击运行，可实现打开指定文件夹下的任一文件，并将此文件的sheet1表格的数据复制到当前VBA代码所处的ThisWorkbook的sheet1的表格中

2018-05-28 22:49:01 5749 3

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

翁丽云

博客等级

码龄7年

3
原创

5
点赞

22
收藏

5
粉丝

关注

私信

最新评论

VBA实现点击按钮自选文件复制数据至当前工作薄
shiminjias: 您好，使用中有几个问题 1，Workbooks.Open(.SelectedItems(1))报错调试后总是跳到这一句。 2，多次使用宏后，再点就报错了 3， Dim filename$ 这句声明有什么用？ [code=plain] Sub FilePicker() Dim f As FileDialog Dim filename$ Set f = Application.FileDialog(msoFileDialogFilePicker) '新建一个对话框对象 '配置对话框 With f .Title = "请选择文件" .InitialFileName = "C:\Users\shiminjia\Desktop\工作\第二轮运营\大屏\每日报表" .AllowMultiSelect = True Workbooks.Open (.SelectedItems(1)) '选择并打开默认初始路径下的文件夹中的文件 ActiveWorkbook.Sheets(1).Range("k2:k101").Copy ThisWorkbook.Sheets(6).Range("B2:B101") '实现复制 ActiveWorkbook.Close '关闭文件 End With '显示对话框 f.Show '获取选择对话框选择的文件 Set paths = FileDialogObject.SelectedItems End Sub [/code]
VBA实现点击按钮自选文件复制数据至当前工作薄
shiminjias: ActiveWorkbook.Sheets(1).Range("k2:k101").Copy ThisWorkbook.Sheets(6).Range("B2:B101")
VBA实现点击按钮自选文件复制数据至当前工作薄
Roc.Lee: 复制后怎么实现只占用A1列，而其他列的数据不受影响呢，怎么改

提示

确定要删除当前文章？

取消删除

原创 CSDN博客个人账号注册与登录

原创 使用Python生成随机整数

原创 VBA实现点击按钮自选文件复制数据至当前工作薄

空空如也

空空如也

原创使用Python生成随机整数