Excel VBA質問箱 IV

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

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


49944 / 76732 ←次へ | 前へ→

【31685】Re:ブックに新たな名前をつけて別のフォルダへ保存
回答  Kein  - 05/11/28(月) 14:11 -

引用なし
パスワード
   ファイルを"リネームした上で移動"するコードに変更するなら


  Dim MyF As String, MyF2 As String
  Const Ph As String = "C:\Documents and Settings\tie\デスクトップ"
  
  MyF = Dir(Ph & "\1.\*.xls")
  Application.ScreenUpdating = False
  Do Until MyF = ""
    Workbooks.Open Ph & "\" & MyF
    
    <処理内容>コピー&ペースト
    
    ActiveWorkbook.Close True
    MyF2 = Left$(MyF, Len(MyF) - 4) & _
    Format(Date, "yyyymmdd") & ".xls" 
    Name Ph & "\1.\" & MyF As Ph & "\2.\" & MyF2
    MyF = Dir()
  Loop
  Application.ScreenUpdating = True

というようなコードになりますが、一定の場所(シート名もセルアドレスも同じ)にある
値を引っ張るなら、リンクがお勧めですね。特に処理するファイル数が多くなるなら
処理時間に差がつくと思います。

0 hits

【31654】ブックに新たな名前をつけて別のフォルダへ保存 夜更かし野郎 05/11/27(日) 19:45 質問
【31656】Re:ブックに新たな名前をつけて別のフォル... かみちゃん 05/11/27(日) 20:04 回答
【31701】Re:ブックに新たな名前をつけて別のフォル... 夜更かし野郎 05/11/28(月) 20:41 お礼
【31685】Re:ブックに新たな名前をつけて別のフォル... Kein 05/11/28(月) 14:11 回答
【31702】Re:ブックに新たな名前をつけて別のフォル... 夜更かし野郎 05/11/28(月) 20:48 お礼
【31718】Re:ブックに新たな名前をつけて別のフォル... ぱっせんじゃー 05/11/29(火) 11:38 発言
【31733】Re:ブックに新たな名前をつけて別のフォル... 夜更かし野郎 05/11/29(火) 14:20 お礼

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