人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

Excelのマクロに関する質問です。良い回答は、100ポイント差し上げます。
ファイル名の一部分を取得し新規ブックのセルに貼り付けたい。

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



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

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

●質問者: anim130M
●カテゴリ:ビジネス・経営 コンピュータ
✍キーワード:Excel xls セル ソース ファイル
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● きゃづみぃ
●100ポイント ベストアンサー

「ファイル名:部品管理表・○○○・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

◎質問者からの返答

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

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

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ