求老师给写一个导出代码

chl111

求老师给写一个导出另存代码。

chl111

chl111

chl111

waymam

Si疯子

1. Sub 导出()
   
2.     Dim sh As Worksheet, wb As Workbook, FilePath As String
   
3.     Application.ScreenUpdating = False
   
4.     Application.DisplayAlerts = False
   
5.     FilePath = VBA.Replace(Range("K5").Value, "导出另存为：", "")
   
6.     Worksheets("对账单").Copy
   
7.     Set wb = ActiveWorkbook
   
8.     wb.SaveAs FilePath & "\对账单", 51
   
9.     wb.Close True
   
10.     Application.DisplayAlerts = True
    
11.     Application.ScreenUpdating = True
    
12. End Sub

复制代码

求助-导出当前表另存为指定位置.zip (167.94 KB, 下载次数: 7)

2019-1-4 15:21 上传

点击文件名下载附件
代码执行之前，先确保  “D:\18年对账单\月度账单”  这个路径存在

chl111

Si疯子 发表于 2019-1-4 15:22
代码执行之前，先确保  “D:\18年对账单\月度账单”  这个路径存在

非常感谢老师给与的帮助，谢谢