正常使用的話可以讀取到儲存格內容filenameall = Worksheets("工作表1").Range("a1").ValueApplication.Dialogs(xlDialogSaveAs).Show (filenameall)重點來了~ 只要加上小數點就會變成空白請求前輩或達人指點....感恩