请选择 进入手机版 | 继续访问电脑版
设为首页收藏本站

共享社区

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

搜索
热搜: 活动 交友 discuz
查看: 915|回复: 8

[分享] 下面这个附件是自己写的,利用最简单的录宏

[复制链接]

14

主题

84

帖子

152

积分

网站编辑

Rank: 8Rank: 8

威望
0
金钱
251
贡献
6
发表于 2015-10-23 10:34:16 | 显示全部楼层 |阅读模式
有大神吗,来帮忙更改一下,改简单一点!

excel导入.rar

205.61 KB, 下载次数: 21

回复

使用道具 举报

14

主题

84

帖子

152

积分

网站编辑

Rank: 8Rank: 8

威望
0
金钱
251
贡献
6
 楼主| 发表于 2015-10-23 10:54:23 | 显示全部楼层
回复

使用道具 举报

14

主题

84

帖子

152

积分

网站编辑

Rank: 8Rank: 8

威望
0
金钱
251
贡献
6
 楼主| 发表于 2015-10-26 17:44:17 | 显示全部楼层
我点导入的时候,为什么不是直接在该文件夹里选东西!@共享社区张少同
回复 支持 反对

使用道具 举报

75

主题

115

帖子

173

积分

管理员

Rank: 9Rank: 9Rank: 9

威望
0
金钱
259
贡献
0
发表于 2015-10-26 17:50:53 | 显示全部楼层
哪个是你的源程序啊?
回复 支持 反对

使用道具 举报

12

主题

59

帖子

188

积分

排长

Rank: 2

威望
4
金钱
294
贡献
5
发表于 2015-10-26 18:20:34 | 显示全部楼层
  1. Sub 导入()

  2.   ' 导入
  3. Dim strpath As String
  4. Dim lastcell As Integer
  5. Application.DefaultFilePath = ThisWorkbook.Path

  6. strpath = Application.GetOpenFilename
  7. Application.Workbooks.Open (strpath)
  8. lastcell = Range("b65536").End(xlUp).Row
  9. Range("A1:iv" & lastcell).Copy
  10.     ActiveWindow.Close
  11.     Range("A1").Select
  12.     ActiveSheet.PasteSpecial Format:="文本", Link:=False, DisplayAsIcon:=False
  13.    Range("A1").Select
  14.      ActiveWorkbook.Save

  15. End Sub
复制代码
回复 支持 反对

使用道具 举报

12

主题

59

帖子

188

积分

排长

Rank: 2

威望
4
金钱
294
贡献
5
发表于 2015-10-26 18:21:14 | 显示全部楼层
吊牌自动生成.zip (78.06 KB, 下载次数: 2)
回复 支持 反对

使用道具 举报

14

主题

84

帖子

152

积分

网站编辑

Rank: 8Rank: 8

威望
0
金钱
251
贡献
6
 楼主| 发表于 2015-10-27 11:43:02 | 显示全部楼层

谢谢坛友!
回复 支持 反对

使用道具 举报

39

主题

125

帖子

142

积分

排长

Rank: 2

威望
0
金钱
253
贡献
0
发表于 2015-11-25 01:13:25 | 显示全部楼层
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Archiver|共享社区 ( 京ICP备15025663号-2  

GMT+8, 2018-12-11 08:18 , Processed in 0.181239 second(s), 26 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表