Inputbox的用法

allwin88

各位前辈，小弟有个问题，如何把下文代码中的& ws.Cells(3, 2) &  用Inputbox来替换。

就是保存的文件名，用弹出box来自定义。




Sub 保存()
Dim ws As Worksheet
Dim new_wb As Workbook
Dim cust_name As String
Application.DisplayAlerts = False
Application.ScreenUpdating = False

Set ws = Sheets("表体(成品)")

ws.Copy
Set new_wb = ActiveWorkbook

new_wb.SaveAs Filename:=ThisWorkbook.Path & "\J2上载\" & ws.Cells(3, 2) & ".xls", FileFormat:=xlNormal
new_wb.Close False
Set new_wb = Nothing
MsgBox "保存成功"
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

719404338

1. Dim str$
   
2. str = InputBox("请输入文件名：")
   
3. new_wb.SaveAs Filename:=ThisWorkbook.Path & "\J2上载" & str & ".xls", FileFormat:=xlNormal

复制代码

allwin88

感谢老师

我把保存格式替换成.xlsx,文件就打不开，提示文件格式或扩展名无效，麻烦指教。。
原先：new_wb.SaveAs Filename:=ThisWorkbook.Path & "\J2上载\" & str & ".xls", FileFormat:=xlNormal
现在：new_wb.SaveAs Filename:=ThisWorkbook.Path & "\J2上载\" & str & ".xlsx", FileFormat:=xlNormal

719404338

FileFormat:=xlOpenXMLWorkbook
FileFormat:=xlNormal是2003以下版本。