Excelのマクロに関する質問です。良い回答は、100ポイント差し上げます。

ファイル名の一部分を取得し新規ブックのセルに貼り付けたい。

ファイル名:部品管理表・○○○・20110109.xls

        ↓

【新規ブック】(sheet1)
3  ○○○
※「・」で囲まれた情報を取り出す。

マクロでの回答は、ソースも記述願います。
どうか宜しくお願いします。

回答の条件
  • URL必須
  • 1人10回まで
  • 登録:2011/02/24 12:34:15
  • 終了:2011/02/24 13:43:02

ベストアンサー

id:taknt No.1

きゃづみぃ回答回数13537ベストアンサー獲得回数11982011/02/24 13:08:16

ポイント100pt

「ファイル名:部品管理表・○○○・20110109.xls」をどこから持ってきてよいのか わからなかったため

直接指定しています。



Sub Macro1()

    a = "ファイル名:部品管理表・○○○・20110109.xls"
    
    c1 = InStr(a, "・") + 1
    c2 = InStr(c1, a, "・")
    b = Mid(a, c1, c2 - c1)
    
    
    Workbooks.Add
    f = ActiveWorkbook.Name
    Workbooks(f).Worksheets("sheet1").Range("A3") = b
End Sub

http://www.serpress.co.jp/excel/vba024.html

id:anim130M

回答いただきありがとうございます。

思い通りのものができました。

2011/02/24 13:40:54

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません