![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?a65a0e2)
A 回答 (4件)
- 最新から表示
- 回答順に表示
No.4
- 回答日時:
>ファイル数は3000ほどあるので、開いていたら処理が間に合わないような・・・。
テンプレートでファイルを作っているならともかく、シート名の定まらないようなブックを、3000個も作ってしまった後に、値を取りたいというのは、もう計画の時点で、失敗を示しているように思います。単に、以下は、実験的なものを越えることはありません。
-------------------------------------------
>worksheet(1)という記述を使いたいのですがどうすればよいでしょうか?
Worksheets(1)のことだと思いますが、シートタブの左端という意味です。
以下は、Excel 2003 までのファイル構造のみ
コードの使い方など、細かい解説はしません。
現在は、安全のために、100ファイル以上では働かないようにしてあります。
If i > 100 Then Exit Sub '安全のために、100ファイルを超えたら、マクロ中止
全部実行するには、
''If i > 100 Then Exit Sub '安全のために、100ファイルを超えたら、マクロ中止
コメントブロック(')を加える。
'標準モジュール。以下のADOオブジェクトは、できる限り事前バインディングのほうが有利です。エラーが残っているかもしれません。
'=========================================
Sub Main()
Dim myPath As String
Dim fn As String
Dim i As Long
Dim buf As Variant
Dim ret1 As Variant
i = 1
myPath = ThisWorkbook.Path & "\"
fn = Dir(myPath & "*.xls", vbNormal)
Do While fn <> ""
If fn Like "*.xls" Or StrComp(ThisWorkbook.Name, fn, 1) <> 0 Then
buf = getSheetsName(fn)
End If
If IsArray(buf) Then
'*注意
ret1 = ExecuteExcel4Macro("'" & myPath & "[" & fn & "]" & buf(0) & "'!R75C3")
If VarType(ret1) <> vbError Then
If ret1 <> "" Then
Cells(i, 1).Value = ret1
i = i + 1
End If
End If
End If
If i > 100 Then Exit Sub '安全のために、100ファイルを超えたら、マクロ中止
fn = Dir
Loop
End Sub
Function getSheetsName(FileName As String)
'ファイル名からシート名を取る関数
Dim oConn As Object 'New ADODB.Connection
Dim oRS As Object ' New ADODB.Recordset
Dim shName As String
Dim buf As String
Dim shLists() As String
Dim i As Long
Dim j As Long
On Error GoTo ErrHandler
Const adSchemaTables As Integer = 20
Set oConn = CreateObject("ADODB.Connection")
With oConn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Properties("Extended Properties").Value = "Excel 8.0"
.Open FileName
End With
Set oRS = oConn.OpenSchema(adSchemaTables)
Do Until oRS.EOF
shName = oRS.Fields("TABLE_NAME").Value
If Right(shName, 1) = "$" Or Right(shName, 1) = "'" Then
ReDim Preserve shLists(i)
buf = Mid$(shName, 1, Len(shName) - 1)
buf = Replace(buf, "$", "", 1)
buf = Replace(buf, "'", "")
shLists(i) = buf
i = i + 1
End If
oRS.MoveNext
Loop
oRS.Close
oConn.Close
ErrHandler:
Set oRS = Nothing
Set oConn = Nothing
'確認用
If i > 0 Then
getSheetsName = shLists() '出力は、配列
End If
End Function
'-------------------------------------------
''掲示板で、あれこれ質問するよりも、自分の分かる範囲で、ファイルOpen, Close でコードを作ったほうが延べ時間では早いです。しかし、実際のマクロは遅いです。以下で実験してみました。しょせん、一回キリのようなマクロは、テクニックは必要ありません。
ただし、VBAマクロは、Run してみなければ分からないものが多いです。
'-------------------------------------------
Sub Main2()
Dim myPath As String
Dim fn As String
Dim i As Long
Dim buf As Variant
i = 1
myPath = ThisWorkbook.Path & "\"
fn = Dir(myPath & "*.xls", vbNormal)
Do While fn <> ""
If fn Like "*.xls" Or StrComp(ThisWorkbook.Name, fn, 1) <> 0 Then
''*シートの設定
buf = getSheetsNameVal(fn, 1, "C75")
Cells(i, 1).Value = buf
i = i + 1
End If
If i > 100 Then Exit Sub '実験用のため100ファイルに限定させる
fn = Dir
Loop
End Sub
Function getSheetsNameVal(FileName As String, iSh As Integer, nRng As String)
Dim objBook As Workbook
Dim sh As Worksheet
Dim ret As Variant
On Error GoTo ErrHandler
'開く時にブックを制御(Screen,Alert,自動計算,Event)
With Application
.ScreenUpdating = False
.DisplayAlerts = False
.Calculation = xlManual
.EnableEvents = False
Set objBook = Workbooks.Open(FileName, ReadOnly:=False)
With objBook
ret = .Worksheets(iSh).Range(nRng).Value
End With
objBook.Close False
End With
ErrHandler:
With Application
.EnableEvents = True
.Calculation = xlCalculationAutomatic
.DisplayAlerts = True
.ScreenUpdating = True
End With
Set objBook = Nothing
If VarType(ret) <> vbError Then
getSheetsNameVal = ret
End If
End Function
'-------------------------------------------
p.s.バイナリでシート名を取る方法は知らないわけではないけれども、私は、そのようなコードを書く気力がありません。VBAマクロは、Runを繰返してみないと分からないものがあります。
この回答への補足
そうですね。はじめの段階からおかしいです。
あまり知らないお客さんがご自分で作られたファイルですから、いろんなのがあって当然かと…。
1回きりの処理なのでちまちまやります。
No.3
- 回答日時:
>てことは、普通に開いて、閉じての繰り返しですか?
えっと,本当にごめんなさい? どこが判らなくて/何が出来なくての,その追加ご質問でしょうか。
「ブックを開いて1枚目シートの所定の番地のセルから値を取得する」(取得して何をしたいのかは,当初ご質問より全く問われていません)と最初から繰り返しご説明している事なので,改めて補足してお話しすべき内容を追加ご質問から拾いあげる事が出来ません。
No.2
- 回答日時:
ブックを3000冊開くのが遅いと思いこんでいる?実証されている?のが問題だとすれば,出来るだけ早くブックを開くマクロを組んだ方が無い方法を模索するより早く結果を出せます。
・screenupdatingを抑制して,若しくはgetobjectで開く
・再計算は手動(xlcalculationmanual)にしておいて開く
ブックを開かないで今のアプローチを堅持したいのでしたら,次の資料
http://officetanaka.net/excel/vba/tips/tips28.htm
と,そこからリンクされているその次の資料
http://officetanaka.net/excel/vba/tips/tips29.htm
が参考になります。
この回答への補足
すばやいご回答ありがとうございます。
よく考えれば別に開いても問題ないレベルのスピードだと思います。
ってことは、普通に開いて、閉じての繰り返しですか?
No.1
- 回答日時:
ExecuteExcel4Macroを使いたければ,そこには実際の正しいシート名を記入しなければなりません。
回避する方法はありません。素直にマクロで(見えないように・邪魔にならないように)ブックを開き,worksheets(1)の所定のセルを取得するのが最も簡易な手です。それで何か困ることがある(或いはマクロが書けない)ようなら,困り所を具体的に挙げて別途ご相談を投稿してみてください。
この回答への補足
特にExecuteExcel4Macroを使う必要はないのです。
(ファイルを開かずにセルを参照したいのです。その他でできるならそれで良いんですが)
あるフォルダにあるファイルを順次読みながらセルを参照してそのシートのセルの必要な
部分だけをとって、一覧表を作りたいのです。
ファイル数は3000ほどあるので、開いていたら処理が間に合わないような・・・。
分かれば、教えてください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) vbaのエラー対応(実行時エラー7:メモリが不足しています) 4 2023/04/24 00:20
- その他(プログラミング・Web制作) pythonでクラスで複数のメソッドを利用する方法 2 2022/04/15 04:17
- Visual Basic(VBA) エクセルVBA(実行時エラー438)の対処法を教えてもらえないでしょうか 3 2023/04/22 13:43
- Excel(エクセル) エクセル VBA For Next 繰り返しの書き方を教えてください 6 2022/09/01 14:11
- Excel(エクセル) excelのindirect関数の別ブック参照について質問です。 1 2022/06/03 15:17
- Excel(エクセル) 【マクロ】【VBA】同じフォルダ内にあるエクセルのデータを転記したい 2 2023/07/26 15:13
- Visual Basic(VBA) Excel-VBAでのファイルの開き方 4 2023/02/14 11:01
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Excel(エクセル) Excelを開くとエラーが出る 2 2022/10/03 16:13
- Visual Basic(VBA) VBAの参照先のファイル名をセルに書いて代入したい 2 2022/04/04 13:42
このQ&Aを見た人はこんなQ&Aも見ています
-
好きな人を振り向かせるためにしたこと
大好きな人と会話のきっかけを少しでも作りたい、意識してもらいたい…! 振り向かせるためにどんなことをしたことがありますか?
-
初めて自分の家と他人の家が違う、と意識した時
子供の頃、友達の家に行くと「なんか自分の家と匂いが違うな?」って思いませんでしたか?
-
最強の防寒、あったか術を教えてください!
とっても寒がりなのですが、冬に皆さんがされている最強の防寒、あったか術が知りたいです!
-
この人頭いいなと思ったエピソード
一緒にいたときに「この人頭いいな」と思ったエピソードを教えてください
-
集中するためにやっていること
家で仕事をしているのですが、布団をはじめ誘惑だらけでなかなか集中できません。
-
VBA EXCEL 開かずにデータ操作
その他(Microsoft Office)
-
ファイルを閉じたままの外部参照で最終行の行数取得
Visual Basic(VBA)
-
保存ブックを開かずコピーペーストするマクロ作成について
Excel(エクセル)
-
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAで保存しないで閉じると空の...
-
エクセル関数>参照ファイル名...
-
エクセル;相対パスを絶対パスへ...
-
【Excel VBA】マクロでExcel自...
-
EXcelのマクロで相対パスでファ...
-
マクロの保存先、開いてるすべ...
-
エクセルのvbaにて thisworkboo...
-
【Excel】マクロの保存先について
-
エクセルを開いて文字を打つ際...
-
複数のExcelファイルの印刷設定...
-
EXCELのボタンによるマクロの登...
-
名前の変わるブックをアクティ...
-
【Excel】特定セルの内容をテキ...
-
EXCELマクロで、開いてはいるが...
-
【Excel】他ブックからOpenされ...
-
エクセルVBA 個人用マクロブッ...
-
エクセルVBAで作成した別ブック...
-
[フィルターオプションの設定]...
-
ファイル名変更後も、マクロを...
-
エクセルのマクロについて教え...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAで保存しないで閉じると空の...
-
エクセル関数>参照ファイル名...
-
【Excel VBA】マクロでExcel自...
-
マクロの保存先、開いてるすべ...
-
エクセルのvbaにて thisworkboo...
-
EXcelのマクロで相対パスでファ...
-
エクセル;相対パスを絶対パスへ...
-
【Excel】マクロの保存先について
-
excelで直前に参照していたブッ...
-
EXCELマクロで、開いてはいるが...
-
複数のExcelファイルの印刷設定...
-
[フィルターオプションの設定]...
-
EXCELのボタンによるマクロの登...
-
エクセルを開いて文字を打つ際...
-
エクセルVBAで作成した別ブック...
-
エクセルVBA 個人用マクロブッ...
-
【Excel】特定セルの内容をテキ...
-
エクセルで使用期限付きのブッ...
-
ファイル名変更後も、マクロを...
-
エクセルで複数ファイルのセル...
おすすめ情報