| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 186 人关注过本帖
标题:控件代码求助
只看楼主 加入收藏
atwoods
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2020-3-9
结帖率:0
收藏
 问题点数:0 回复次数:2 
控件代码求助
设置一个控件按键,点击按键,选择桌面上的excel,然后打开选中的excel,复制粘贴里面的数据到指定的sheet中。这个应该怎么写,请大神们赐教,非常感谢!
搜索更多相关主题的帖子: 代码 复制 excel 按键 控件 
2020-04-15 12:33
rhloo
Rank: 2
等 级:论坛游民
帖 子:6
专家分:20
注 册:2020-5-22
收藏
得分:0 
以下是打开文件的代码,放在按键点击事件中,复制粘贴操作按自己的需求
程序代码:
With Application.FileDialog(msoFileDialogFilePicker)
    .InitialFileName = ThisWorkbook.Path & "\"
    .AllowMultiSelect = True
    .Filters.Clear
    .Filters.Add "Excel Files", "*.xls*"
    .Show
End With
2020-05-22 11:00
atwoods
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2020-3-9
收藏
得分:0 
哥们,太感谢了,搞定了,大神啊
2020-06-08 21:41
快速回复:控件代码求助
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.049012 second(s), 8 queries.
Copyright©2004-2020, BCCN.NET, All Rights Reserved