求助：批量添加附件的方法。

TxyzT · 发表于 2013-12-28 11:09

在做的过程中需要对每个零件增加条形码，现在想批量导入到零件表的条形码栏中（附件形式），文件为图片格式，文件名为零件的图号。
有没有快捷的批量导入的方法？求帮助！

lhdcxz · 发表于 2013-12-28 12:25

上附件，模拟结果。

TxyzT · 发表于 2014-1-2 16:37

lhdcxz 发表于 2013-12-28 12:25
上附件，模拟结果。

见附件，因为数量很多，所以一个个录入很麻烦，看下有没有批量录入的方法。谢谢了。
还以为石沉大海了呢。在这先谢谢啦！{:soso_e183:}

lhdcxz · 发表于 2014-1-2 17:23

TxyzT 发表于 2014-1-2 16:37
见附件，因为数量很多，所以一个个录入很麻烦，看下有没有批量录入的方法。谢谢了。
还以为石沉大海了呢 ...

不好意思。我没有安装数据库软件。

TxyzT · 发表于 2014-1-3 16:40

lhdcxz 发表于 2014-1-2 17:23
不好意思。我没有安装数据库软件。

看下图片，有没有解决的方法？

lhdcxz · 发表于 2014-1-3 17:50

本帖最后由 lhdcxz 于 2014-1-3 18:52 编辑

参考这个

图片形成.rar (285.75 KB, 下载次数: 56)
新人须知：（旧人略过）
1、我的附件都是在2003版本下单机调试通过的，没有在其他高版本上调试过（除开宏表函数之外，一般应该没有问题）。
2、我的压缩附件如果包括文件夹，不能直接打开运行。因为需要访问其他文件，否则会因为在当前文件夹里面找不到文件而出现错误（这也是一些人使用我的附件失败的原因）。
应该解压到某个文件夹里面（其他在操作的时候要访问的文件也放到这个文件夹里面）解压后再运行。
（建议新人把附件先“另存为”在桌面,即C:\Users\Administrator\Desktop，解压后再运行）
3、回复附件大多数含VBA代码。如果你没有操作过含VBA代码（也称为“宏”）的Excel文件，
就先要在窗口工具栏的“工具”--“宏”--“安全性”选择“中（或者低）”。
如果你的“宏、安全性选择的是“中”，打开运行的时候要“启用宏”。
新人特别注意第2条的要求。

AFT+F11看代码，都有说明的，
这句代码
FilPath = ThisWorkbook.Path & "\相片\" & t & ".png" '当前路径下的相片文件夹里面的png的格式的图片
你把“相片”和“图片格式png”改为你自己的。
也许你不放在C列，就把
Set Target = Range("A" & i).Offset(0, 2) '偏移，放在C列
里面的（0，2）改为从A列数起的偏移量（比如：B列为1，D列为3 。。）
如果你的图片的名字不是在A列，就把所有的大写字母“A”改为你需要的列字母

望天打卦 · 发表于 2014-1-7 16:35

不建议使用添加附件的方式，这样我只知道无形中会增大文件。压缩文件保存到桌面上。

TxyzT · 发表于 2014-1-11 10:25

望天打卦发表于 2014-1-7 16:35
不建议使用添加附件的方式，这样我只知道无形中会增大文件。压缩文件保存到桌面上。

这个是怎么实现的？求指导。

TxyzT · 发表于 2014-1-11 11:28

望天打卦发表于 2014-1-7 16:35
不建议使用添加附件的方式，这样我只知道无形中会增大文件。压缩文件保存到桌面上。

明白了！谢谢啦。很实用！

TxyzT · 发表于 2014-1-11 11:34

lhdcxz 发表于 2014-1-3 17:50
参考这个
新人须知：（旧人略过）
1、我的附件都是在2003版本下单机调试通过的，没有在其他高版本上调试过 ...

谢谢了。很有参考价值！

		自动登录	找回密码
密码			免费注册