エクセル2000で次のような処理が出来ますでしょうか。
まず前提として、シート1のA列にフォルダAの中の001.jpg~100.jpgと言う画像
がリンク付けてあります。(A1は001.jpgに~A100は100.jpgに)。
そこで、シート1のB列にB1からB***まで数字をガンガン打ち込んでいきます。
打ち込み終わりで、実行すると例えばB1が30だとすると030.jpgを
1-030-001.jpg( (1から連番)-(画像番号)-(検索された回数).jpg )
と言うふうにしてフォルダBにコピーしたいのですが・・。
こんな事出来ますでしょうか?

A 回答 (2件)

>・・・(つまり一回目に検索されたファイル)はコピーせず・・・


については、

  If schNum(inpNo) <> 1 Then
    '1回目でなければファイルをコピー
    FileCopy SrcFile, DesFile
  End If

とすれば大丈夫でしょう。
    • good
    • 0
この回答へのお礼

下のほうに書いてしまいましたが、
本当にありがとうございました。

お礼日時:2001/11/23 19:40

こんな感じでしょうか。

質問の通りにファイルをコピーするはずです。(Excel2000)

コピー先ファイル名の『1から連番』は1~数桁になり、ソートなどには不向きかもしれません。
 DesFile = DesFolder & "\" & (rwCot + 1) &・・・・を(質問のまま)
 DesFile = DesFolder & "\" & RIGHT("0000" & (rwCot + 1), 4) &・・・にすれば連番が4桁固定になります。

フォルダA、Bは指定してください。

シートのコードウインドウに貼り付けます。

Dim schNum() As Integer '検索された回数

Sub HyperFileCopy()
  Const SrcFolder = "A:\FolderA" 'コピー元のフォルダ *** 指定する ***
  Const DesFolder = "A:\FolderB" 'コピー先のフォルダ *** 指定する ***

  Const jpgNum = 100 'jpgファイルの個数
  ReDim schNum(jpgNum) As Integer '検索された回数
  Dim rwCot As Integer 'カウンタ(連番)

  Dim inpNo As Integer '入力した数値
  Dim SrcFile As String 'コピー元のファイル名
  Dim DesFile As String 'コピー先のファイル名

  While Range("B1").Offset(rwCot, 0) <> "" 'B列を空白セルになるまで読み込む
    inpNo = Range("B1").Offset(rwCot, 0).Value

    'コピー元のファイル名
    SrcFile = SrcFolder & "\" & Range("A" & inpNo).Value
    'コピー先のファイル名
    schNum(inpNo) = schNum(inpNo) + 1 '検索された回数を増やす
    DesFile = DesFolder & "\" & (rwCot + 1) & "-" & _
         Right("000" & inpNo, 3) & "-" & _
         Right("000" & schNum(inpNo), 3) & ".jpg"

    'ファイルをコピー
    FileCopy SrcFile, DesFile

    rwCot = rwCot + 1 '次の行
  Wend
End Sub

この回答への補足

nishi6さん、本当にありがとうございます。感謝というか感動です。
おかげさまで出来ました。
一つ質問漏れがありまして、変更したファイル名が ****-***-001.jpg
となった場合(つまり一回目に検索されたファイル)はコピーせず、
そのまま次の処理を続けることは出来ますか?
ファイルをコピーする前に何か一文たせばいいんでしょうか・・?

補足日時:2001/11/23 13:36
    • good
    • 0
この回答へのお礼

重ね重ね本当にありがとうございました。
お礼の言葉もございません。
おかげさまでうまく行きました。自分でやってたら
何年かかるか・・と思うと恐いくらいです。

お礼日時:2001/11/23 19:38

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード


このカテゴリの人気Q&Aランキング

おすすめ情報

カテゴリ