|
▼よろずや さん:
返信ありがとうございます。
マクロなどを使用して
sub test()
Dim wb As Workbook, ws As Worksheet, i As Long, myFile
myFile = Application.GetOpenFilename _
(filefilter:="サンプルファイル,*.slk", _
Title:="ファイルを選択", MultiSelect:=True)
If TypeName(myFile) = "Boolean" Then Exit Sub
For i = 1 To UBound(myFile)
Workbooks.Open (myFile(i))
ActiveWorkbook.SaveAs Filename:=ここに保存, _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
Set wb = Nothing
Next i
end sub
としてみたのですが、
ファイルを選択するまでは何とかうまくいくのですが、
そのファイル名を採用して、そのファイルをデスクトップに
保存する方法がわかりません。
どなたか、ご教授よろしくおねがいします。
|
|