清华大佬耗费三个月吐血整理的几百G的资源，免费分享！....>>>

Dim fileSaveName
fileSaveName = Application.GetSaveAsFilename( _
    fileFilter:="Text Files (*.txt), *.txt")
If fileSaveName <> False Then
    MsgBox "Save as " & fileSaveName
End If