|
いつもお世話になっております。「ChDir」の「GetOpenFilename」で取得したファイル名だけを取得して(rFile)、違うパス(mypath2)+そのファイル名(rFile)で保存したいのですが・・・・下記のコードでは、どうしても、mypath2+rFileのフルパスになってしまうのですTT どなたかご教授してください。
Dim rFile As Variant
Dim sFile As Variant
Dim myPath As String
Dim myPath2 As String
ChDrive myPath
ChDir myPath
rFile = Application.GetOpenFilename
If (rFile) = False Then
Exit Sub
End If
'rFileの名前で変更
sFile = rFile.Name
sFile = Left(rFile, Len(rFile) - 3) & "xls"
sFile = sFile.Filename
On Error Resume Next
ActiveWorkbook.SaveAs Filename:=myPath2 & sFile, _
FileFormat:=xlWorkbookNormal
|
|