Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

8708 / 13646 ﾂﾘｰ

←次へ　｜　前へ→

▼

【31642】VBでファイルを開くときに．．． kon 05/11/27(日) 18:33

【31644】Re:VBでファイルを開くときに．．． かみちゃん 05/11/27(日) 18:53

【31648】Re:VBでファイルを開くときに．．． kon 05/11/27(日) 19:07

【31651】Re:VBでファイルを開くときに．．． かみちゃん 05/11/27(日) 19:17

【31655】Re:VBでファイルを開くときに．．． kon 05/11/27(日) 19:55

【31657】Re:VBでファイルを開くときに．．． かみちゃん 05/11/27(日) 20:12

【31658】Re:VBでファイルを開くときに．．． kon 05/11/27(日) 20:40

【31659】Re:VBでファイルを開くときに．．． かみちゃん 05/11/27(日) 20:50

【31660】Re:VBでファイルを開くときに．．． kon 05/11/27(日) 21:41

【31668】Re:VBでファイルを開くときに．．． OYAJI 05/11/27(日) 23:46

【31669】Re:VBでファイルを開くときに．．． かみちゃん 05/11/28(月) 6:43

【31670】Re:VBでファイルを開くときに．．． つつ 05/11/28(月) 8:05

【31678】Re:VBでファイルを開くときに．．． かみちゃん 05/11/28(月) 11:12

【31680】Re:VBでファイルを開くときに．．． つつ 05/11/28(月) 12:00


	【31642】VBでファイルを開くときに．．．

kon - 05/11/27(日) 18:33 -


	引用なし

	パスワード

はじめましてkonです。

マクロの自動書きで別ファイルを呼び出しできるように
したのですが、このファイル名は固定せずセルに入力
されている各ファイル名から呼出できるようにしたいです。

ファイル名だけでも１００以上あるので自動書きだけでは
作業の効率があがりません。

変数？とでもいうのでしょうか。何か代入できるものはある
のですか。あればその方法を教えてください。

私は自動でしかマクロを作成したことがありません。
宜しくお願いします。


	【31644】Re:VBでファイルを開くときに．．．

かみちゃん - 05/11/27(日) 18:53 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>マクロの自動書きで別ファイルを呼び出しできるように
>したのですが、このファイル名は固定せずセルに入力
>されている各ファイル名から呼出できるようにしたいです。

「マクロの自動書き」というのは、「マクロの記録」を使ったということでしょうか？
それであれば、その記録したマクロとファイル名を記述したセルのサンプルを提示
できませんか？

>変数？とでもいうのでしょうか。何か代入できるものはある
>のですか。あればその方法を教えてください。

実際の処理とは少し違いますが、こんな感じでできると思います。

Sub Macro1()
　Dim LastCell As Range, c As Range
　
　Set LastCell = Range("A65536").End(xlUp)
　For Each c In Range("A1", LastCell)
　　strFileName = c.Value
　　If c.Value <> "" And Dir(strFileName) <> "" Then
　　　'～ファイル呼び出し～
　　　c.Offset(, 1).Value = "成功"
　　Else
　　　c.Offset(, 1).Value = "失敗"
　　End If
　Next
　Range("A1").Select
　Set LastCell = Nothing
End Sub


	【31648】Re:VBでファイルを開くときに．．．

kon - 05/11/27(日) 19:07 -


	引用なし

	パスワード

▼かみちゃんさん：
早速の返信ありがとうございます。

>「マクロの自動書き」というのは、「マクロの記録」を使ったということでしょうか？
そうです。

>それであれば、その記録したマクロとファイル名を記述したセルのサンプルを提示
>できませんか？

ファイル名はセルに入力してあり
マクロを実行するとそのファイルが開くというものです。
ちなみに「マクロの記録」では下記の記述となりました。

Workbooks.Open Filename:="C:\WINDOWS\ﾃﾞｽｸﾄｯﾌﾟ\1234567.xls"

この「1234567.xls」部分をセルに入力されている内容を自動で読み込みたいのです。


	【31651】Re:VBでファイルを開くときに．．．

かみちゃん - 05/11/27(日) 19:17 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>ファイル名はセルに入力してあり
>マクロを実行するとそのファイルが開くというものです。
>ちなみに「マクロの記録」では下記の記述となりました。
>
>Workbooks.Open Filename:="C:\WINDOWS\ﾃﾞｽｸﾄｯﾌﾟ\1234567.xls"
>
>この「1234567.xls」部分をセルに入力されている内容を自動で読み込みたいのです。

A列に開きたいファイル名が記述してある場合、以下のような感じでできますが、
ブックを開きっぱなしになるので、危険なコードになっています。
でも、開いた後、どうしたいのかがわかりませんので・・・

Sub Macro1()
　Dim LastCell As Range, c As Range

　Set LastCell = Range("A65536").End(xlUp)
　For Each c In Range("A1", LastCell)
　　strFileName = "C:\WINDOWS\ﾃﾞｽｸﾄｯﾌﾟ\" & c.Value
　　If c.Value <> "" And Dir(strFileName) <> "" Then
　　　'ファイル呼び出し
　　　Workbooks.Open Filename:="C:\WINDOWS\ﾃﾞｽｸﾄｯﾌﾟ\" & c.Value
　　　'？？？開いたあとどうしたいのか？？？
　　　c.Offset(, 1).Value = "成功"
　　Else
　　　c.Offset(, 1).Value = "失敗"
　　End If
　Next
　Range("A1").Select
　Set LastCell = Nothing
End Sub


	【31655】Re:VBでファイルを開くときに．．．

kon - 05/11/27(日) 19:55 -


	引用なし

	パスワード

かみちゃんさん

ファイルは単純に開いて閲覧したいだけなので開いた状態のままで
問題ありません。閉じるときは手動で閉じます。

この程度ですので先ほどのVBのような「成功・失敗」のような
メッセージは特に必要ありません。

再度ご教示願います。


	【31657】Re:VBでファイルを開くときに．．．

かみちゃん - 05/11/27(日) 20:12 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>ファイルは単純に開いて閲覧したいだけなので開いた状態のままで
>問題ありません。閉じるときは手動で閉じます。

1回のマクロ実行で100以上あるファイルを一度に開いてしまいます（厳密には、順番に開いていく）が、大丈夫ですか？

>この程度ですので先ほどのVBのような「成功・失敗」のような
>メッセージは特に必要ありません。
>
>再度ご教示願います。

であれば、その記述されているコードを削除すればいいだけだと思いますが・・・

いらないこと書いてすみません。（記述ミスなどによるファイルの存在チェックのためにあったほうがいいかなと思っただけです。）

再度、申し上げますが、一回のマクロ実行で、A列に記述されたファイル名はすべて開く処理をしますので、
マクロ実行後には、たくさんのブックが開かれていることになりますので、くれぐ
れも注意してください。（そもそも耐えられるかどうか心配です。）


	【31658】Re:VBでファイルを開くときに．．．

kon - 05/11/27(日) 20:40 -


	引用なし

	パスワード

かみちゃんさん

たぶんっていうかメモリーがもちませんね。
では、各ファイル名はリストにしておいて
開きたいファイルをそのリストより１つだけ選択し
てマクロを走らせる場合は同なのでしょうか？

リストはＡ列に作成しておき、任意のファイル名はＢ１セルに
１つだけ手動で貼り付けしておきます。その後マクロ実行です。

先ほどのVBを変更すればできますか？それとももっと簡素化
できるのでしょうか？


	【31659】Re:VBでファイルを開くときに．．．

かみちゃん - 05/11/27(日) 20:50 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>では、各ファイル名はリストにしておいて
>開きたいファイルをそのリストより１つだけ選択し
>てマクロを走らせる場合はどうなのでしょうか？

開きたいファイルの名が書かれている行のB列に「*」という文字を入れておいて
その文字が入力してある場合は、その行のA列に書かれているファイル名を開くと
いうのではいかがでしょうか？

さきほどのVBAコードの
　　If c.Value <> "" And Dir(strFileName) <> "" Then
の部分を
　　If c.Value <> "" And c.Offset(, 1).Value = "*" And Dir(strFileName) <> "" Then
という記述にすれば、できます。

本当は、ファイルを開くことができたならば、「処理したよ」という意味の表示を
B列に出力したいところですが・・・必要ないですよね。すみません。


	【31660】Re:VBでファイルを開くときに．．．

kon - 05/11/27(日) 21:41 -


	引用なし

	パスワード

かみちゃん

ありがとうございます。
早速やってみます。


	【31668】Re:VBでファイルを開くときに．．．

OYAJI - 05/11/27(日) 23:46 -


	引用なし

	パスワード

私も似た質問です。便乗させてください。

私の場合は、単純にファイルが開ければいいので
ファイル名が入力されているセルは１つだけであり
リストのようなものはありません。

ファイル名はその都度入力しています。

konさん勝手にすみません。
かみちゃんさん教えていただけますか。


	【31669】Re:VBでファイルを開くときに．．．

かみちゃん - 05/11/28(月) 6:43 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>私の場合は、単純にファイルが開ければいいので
>ファイル名が入力されているセルは１つだけであり
>リストのようなものはありません。
>
>ファイル名はその都度入力しています。

ファイル名が入力されているセルがA1である場合、
先に提示したコードを流用するならば、
　Set LastCell = Range("A65536").End(xlUp)
を
　Set LastCell = Range("A1")
とするだけでいいです。

ただ、入力されているセルが1つだけですので、For ～ Nextを使う必要はまったく
ありませんので、

Sub Macro1()
　Dim strFileName As String

　strFileName = "C:\WINDOWS\ﾃﾞｽｸﾄｯﾌﾟ\" & Range("A1").Value
　If Dir(strFileName) <> "" Then
　　'ファイル呼び出し
　　Workbooks.Open Filename:=strFileName
　　'？？？開いたあとどうしたいのか？？？
　End If
End Sub

とすればいいです。

さらに、セルに入力せずに、「ファイルを開く」ダイアログボックスを表示して
その都度選択させるということもできます。
その場合は、GetOpenFilaNameメソッドをヘルプで調べてみてください。


	【31670】Re:VBでファイルを開くときに．．．

つつ - 05/11/28(月) 8:05 -


	引用なし

	パスワード

私も乱入させてください。 konさんすみません。 >さらに、セルに入力せずに、「ファイルを開く」ダイアログボックスを表示して >その都度選択させるということもできます。 >その場合は、GetOpenFilaNameメソッドをヘルプで調べてみてください。 GetOpenFileNameメソッド、大変役に立ちました。以前からエクセルマクロ４を使用し、ＶＢＡに移行しつつあるのですがこのメソッドがわからないため、一変通りのことしかできない状態でしたが、これで、自由にファイル内容を取り出すことに成功しました。そうしたらまた問題が出ました。開いたファイルから内容をコピーし、別のワークブックにペーストした後開いたファイルを閉じたいのですが、エラーが出てしまいます。以下のように記述しているのですがどこがおかしいのでしょうか？　　fileToOpen = Application.GetOpenFilename("CSV形式 (*.csv), *.csv") 　　If fileToOpen <> False Then 　　　　MsgBox "選択されたファイル　:　" & fileToOpen 　　Workbooks.Open Filename:=fileToOpen 　　Columns("B:B").Select 　　Selection.Copy 　　Windows("Book1.xls").Activate 　　Range("C1").Select 　　ActiveSheet.Paste 　　Application.Workbooks(fileToOpen).Activate 　　ActiveWindow.Close 　　End If よろしくお教えください。


	【31678】Re:VBでファイルを開くときに．．．

かみちゃん - 05/11/28(月) 11:12 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>開いたファイルから内容をコピーし、別のワークブックにペーストした後
>開いたファイルを閉じたいのですが、エラーが出てしまいます。

とりあえず、以下のような感じでできると思います。
★印の行を追加修正しています。

Sub test()
　 fileToOpen = Application.GetOpenFilename("CSV形式 (*.csv), *.csv")
　 If fileToOpen <> False Then
　　 MsgBox "選択されたファイル　:　" & fileToOpen
　　 Workbooks.Open Filename:=fileToOpen
　　 OpenWorkbookName = ActiveWorkbook.Name '★
　　 Columns("B:B").Select
　　 Selection.Copy
　　 Workbooks("Book1").Activate '★
　　 Range("C1").Select
　　 ActiveSheet.Paste
　　 Application.CutCopyMode = False '★
　　 Workbooks(OpenWorkbookName).Activate '★ 変数fileToOpenにはフルパスが格納されている
　　 ActiveWindow.Close
　 End If
End Sub

ただ、Book1は、常に開いている状態なのでしょうか？
CSVファイルを開いたら、新規ブックの追加をして、そのブックに貼り付けて
終わったら、CSVファイルは閉じるという方法にしてはいかがでしょうか？
そのためには、以下のような感じになります。

Sub test0()
　 Dim fileToOpen As String
　 Dim wb1 As Workbook, wb2 As Workbook
　 Dim ws As Worksheet
　
　 fileToOpen = Application.GetOpenFilename("CSV形式 (*.csv), *.csv")
　 If fileToOpen <> "False" Then
　　 MsgBox "選択されたファイル　:　" & fileToOpen

　　 Set wb1 = Workbooks.Open(fileToOpen)
　　 Set ws = ActiveSheet
　　 Set wb2 = Workbooks.Add

　　 ws.Columns("B:B").Copy Range("C1")
　　 wb1.Close

　　 Set wb1 = Nothing
　　 Set ws = Nothing
　　 Set wb2 = Nothing

　 End If
End Sub


	【31680】Re:VBでファイルを開くときに．．．

つつ - 05/11/28(月) 12:00 -


	引用なし

	パスワード

▼かみちゃんさん：

大変ありがとうございます。

> 変数fileToOpenにはフルパスが格納されている

なるほど、そういうことだったですね。
納得納得！

>ただ、Book1は、常に開いている状態なのでしょうか？
>CSVファイルを開いたら、新規ブックの追加をして、そのブックに貼り付けて
>終わったら、CSVファイルは閉じるという方法にしてはいかがでしょうか？

提示のものは、単純化しており、実際にはBook1はフォーマットのように
使用して、コピーしては、次の列に貼り付けて列を足していく
形にしようと考えています。
ペーストコマンドの前に右にずらすという操作を挿入して
使用します。
従って、Book1は閉じることなく運用したいと思います。

それと提示していただいたもの、すっきりしていて
とても参考になります。短い単語の変数を定義することで
わかりやすいですね。こちらも採用してみるつもりです。

個人的にVBAを活用して楽にすすめるには、このＨＰ、
非常にありがたいです。今回初めて、見させていただきました。
かみちゃんさん、本当にありがとうございました。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

8708 / 13646 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free