Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


71649 / 76732 ←次へ | 前へ→

【9576】ファイル名の引継ぎ
質問  テーブル  - 03/12/9(火) 11:55 -

引用なし
パスワード
   いつもお世話になっております。「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
1 hits

【9576】ファイル名の引継ぎ テーブル 03/12/9(火) 11:55 質問
【9577】Re:ファイル名の引継ぎ Jaka 03/12/9(火) 12:17 回答
【9579】Re:ファイル名の引継ぎ Jaka 03/12/9(火) 12:53 回答
【9580】すみません,文字化けしたみたいです。 Jaka 03/12/9(火) 12:56 発言
【9589】Re:すみません,文字化けしたみたいです。 テーブル 03/12/9(火) 18:44 お礼

71649 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free