Excel VBA質問箱 IV

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

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


12618 / 13646 ツリー ←次へ | 前へ→

【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 お礼

【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

【9577】Re:ファイル名の引継ぎ
回答  Jaka  - 03/12/9(火) 12:17 -

引用なし
パスワード
   こんにちは。

Sub ブックを複写する()
  FileCopy "C:\FFF\BBB.xls", "C:\F22\B22.xls"
End Sub

Sub ブックを移動する()
  Name "C:\FFF\BBB.xls" As "C:\F22\BBB.xls"
End Sub

Sub ブックを移動しブック名を変更する()
  Name "C:\FFF\BBB.xls" As "C:\F22\B22.xls"
End Sub

【9579】Re:ファイル名の引継ぎ
回答  Jaka  - 03/12/9(火) 12:53 -

引用なし
パスワード
   Sub nmm()
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
myPath2 = "C:\Windows\偲酌漆失柴識捨釈\"
sFile = Dir(rFile)
If dir(myPath2 & sFile) <> "" Then exit sub
  ActiveWorkbook.SaveAs FileName:=myPath2 & sFile, _
          FileFormat:=xlNormal
End Sub

【9580】すみません,文字化けしたみたいです。
発言  Jaka  - 03/12/9(火) 12:56 -

引用なし
パスワード
   半角カナ使ったせいか....。
偲酌漆失柴識捨釈 → 半角カナのデスクトップ

【9589】Re:すみません,文字化けしたみたいです。
お礼  テーブル  - 03/12/9(火) 18:44 -

引用なし
パスワード
   Jakaさん。ありがとうございました! 本当に助かりました!!

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