Excel VBA質問箱 IV

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

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


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

【65385】Renameするには にしもり 10/5/17(月) 17:04 質問[未読]
【65387】Re:Renameするには 超初心者 10/5/17(月) 17:41 発言[未読]
【65389】Re:Renameするには にしもり 10/5/17(月) 18:00 お礼[未読]

【65385】Renameするには
質問  にしもり  - 10/5/17(月) 17:04 -

引用なし
パスワード
   こんにちは。
cのShiten_に北海道.pdf 青森県.pdf 岩手県.pdf があるとします。(実際は47県あります)
これを一度に北海道_20100517.pdf 青森県_20100517.pdf 岩手県_20100517.pdf
にnenameするにはどう記述したらいいでしょうか。
すいませんいまだに基本解っていません。 

Sub Macro3()

Dim MyBranch(3) As String
Dim i As Long

  MyBranch(0) = "北海道"
  MyBranch(1) = "青森県"
  MyBranch(2) = "岩手県"
'実際は47県

For i = 0 To 3

  Workbooks.rename Filename:="c:\Shiten_\" & MyBranch(i) & "_20100517.pdf"

Next i
   
    
End Sub

【65387】Re:Renameするには
発言  超初心者  - 10/5/17(月) 17:41 -

引用なし
パスワード
   ▼にしもり さん:
PDFファイルですので、
> Workbooks.rename
勝手にワークブックを使用してはいけません^^;;

> すいませんいまだに基本解っていません。
基本がわからないなら
h t t p ://www.vector.co.jp/vpack/filearea/win/util/file/name/
こういったものを利用するのが良いでしょう。


一応
For i = 0 To 3
  Name "c:\Shiten_\" & MyBranch(i) & ".pdf" As _
     "c:\Shiten_\" & MyBranch(i) & "_20100517.pdf"
Next i
こんな感じで良いかと思います。

【65389】Re:Renameするには
お礼  にしもり  - 10/5/17(月) 18:00 -

引用なし
パスワード
   ▼超初心者 さん:
できました。
ありがとうございました。
ちょっとやならいとすぐ忘れてしまい、お恥ずかしいです。

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