求助另存文件的代码

lzqmsy

[tr]  [td=72]求助代码,[/td] [/tr]
[tr]  [td]点击按钮,将"月报"和"数据库"两个表(sheet)另存为[/td] [/tr]
[tr]  [td]B4单元格为文件名的文件[/td] [/tr]
[tr]  [td]保存路径与本文件路径相同多谢各位老师!!! 销售台帐.rar (16.02 KB, 下载次数: 8)

2018-7-16 00:25 上传

点击文件名下载附件

[/td] [/tr]
[tr]  [td]
[/td] [/tr]

opiona

1. 
   
2.     Path = ThisWorkbook.Path & "" & GetPathFromFileName(FileArr(i), False) & ".xls"
   
3.     WB.SaveAs Filename:=Path, FileFormat:=xls =xlExcel8      '//保存格式：xls =xlExcel8  xlsx=xlWorkbookDefault
   
4.    
   
5.     Path = PathG & "" & SHX.Cells(IROW, 1).Value & ".XLSX"
   
6.     WB.SaveAs Filename:=Path, FileFormat:=xlWorkbookDefault   '//保存格式：xls =xlExcel8  xlsx=xlWorkbookDefault
   
7. 
   

复制代码

lzqmsy

opiona 发表于 2018-7-16 07:43

老师,您好,您的代码我可以直接用吗?01.行怎么没有内容呀?提示这个未定义FileArr(i)

lzqmsy

opiona 发表于 2018-7-16 07:43

北极狐工作室的老师,您好,您已经对我帮助很大了,我现在用您的代码的地方很多,我衷心的感谢,这个能否再帮我一下,谢谢!多谢了!!!

opiona

Path = ThisWorkbook.Path & "" & GetPathFromFileName(FileArr(i), False) & ".xls"

改成你对应的单元格内容啊！
Path = ThisWorkbook.Path & "" & sheet1.range（“B4”）.value & ".xls"

lzqmsy

opiona 发表于 2018-7-16 18:47
Path = ThisWorkbook.Path & "" & GetPathFromFileName(FileArr(i), False) & ".xls"

改成你对应的单元 ...

谢谢老师!!!再次感谢!!!

lzqmsy

opiona 发表于 2018-7-16 18:47
Path = ThisWorkbook.Path & "" & GetPathFromFileName(FileArr(i), False) & ".xls"

改成你对应的单元 ...

学生愚钝,一直没有理解老师的意思,没弄成功

opiona

1. Sub 保存文件()
   
2.     Set SHX = Worksheets("操作表")
   
3.     Set SH1 = Worksheets("月报")
   
4.     Set SH2 = Worksheets("数据库")
   
5.     Set WB = Workbooks.Add
   
6.     SH1.Copy before:=Worksheets(1)
   
7.     SH2.Copy before:=Worksheets(1)
   
8.     Path = ThisWorkbook.Path & "" & SHX.Range("B4").Value & ".xls"
   
9.    
   
10.     WB.SaveAs Filename:=Path, FileFormat:=xlExcel8      '//保存格式：xls    xlsx=xlWorkbookDefault
    
11.     WB.Close True
    
12.     Set WB = Nothing
    
13. End Sub

复制代码

lzqmsy

opiona 发表于 2018-7-17 06:39

再次谢谢!!!