自动抓取单元格内容做文件名的求助

客气 · 发表于 2013-4-6 13:17

本帖最后由客气于 2013-4-6 13:19 编辑

自动抓取单元格内容做文件名的求助，详细要求见附件。请各位高手将附件模版修改后给传上来

客气 · 发表于 2013-4-7 13:35

看样子问题有点难度呀，请各路大神费费脑筋给解决一下，再次表示感谢

grf1973 · 发表于 2013-4-8 21:09

我试过了可以才上传的

grf1973 · 发表于 2013-4-8 10:38

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim FilName$, Folder$
FilName = Trim(ActiveWorkbook.Sheets("sheet1").Range("H2").Text) & ".xls"
Folder = "D:\出库单"
If Len(Dir(Folder, vbDirectory)) = 0 Then MkDir Folder
ActiveWorkbook.SaveAs Folder & "\" & FilName
ActiveWorkbook.Close
End Sub

grf1973 · 发表于 2013-4-8 10:40

请自行试验。

客气 · 发表于 2013-4-8 20:34

grf1973 发表于 2013-4-8 10:40
请自行试验。

感谢参与，但是我试了一下，貌似不行的，请您也验证一下，谢谢

客气 · 发表于 2013-4-9 16:27

你好，我试了一下，你那个的确可以，为什么把代码复制到我的模板里却提示错误，请帮着把这个模板修改好，其他的不用动，然后还存储为2007的模板，O(∩_∩)O谢谢

客气 · 发表于 2013-4-9 16:28

本帖最后由客气于 2013-4-9 16:30 编辑

grf1973 发表于 2013-4-8 21:09
我试过了可以才上传的

你好，我试了一下，你那个的确可以，为什么把代码复制到我的模板里却提示错误，请帮着把这个模板修改好，文件名是底盘号的内容。其他的不用动，然后还存储为2007的模板，O(∩_∩)O谢谢

grf1973 · 发表于 2013-4-9 19:21

家里excel2003版的。。。。。不能复制到模块里，你把代码复制到ThisWorkbook下面才行。

grf1973 · 发表于 2013-4-9 19:31

改好了。把[I2]车型做为保存条件的。不知道对不对。

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