|
▼Yuki さん:
ご教授ありがとうございます。
あと1点わからない点があるのです。
本来はデスクトップに保存する予定だったのですが、
保存先を、選択したいのです。
なお、新しいフォルダを作成できる機能もつけたいのですが
コードの書き方が全くわからなくて。。。
おわかりの方、ご教授よろしくお願いします
Application.ScreenUpdating = False
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
Dim DT As String
DT = CreateObject("WScript.Shell").SpecialFolders.Item("Desktop") & "\"
For i = 1 To UBound(myFile)
Set wb = Workbooks.Open(myFile(i))
strNM = Replace(Dir(myFile(i)), ".slk", ".xls")
wb.SaveAs Filename:=DT & strNM, _
FileFormat:=xlExcel7, Password:="", _
WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
wb.Close False
Set wb = Nothing
Next i
Application.ScreenUpdating = True
|
|