Excel VBA質問箱 IV

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

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


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

161 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【79241】コマンドボタンのプロシージャを見やすい...

miro - 17/6/18(日) 19:58 -


	引用なし

	パスワード

コマンドボタン１のプロシの記述が長くなってしまったのですが、それをいくつかに分けて一つのモジュール内でで表示したいです。
同じPrivate Sub CommandButton1_Click()　だとエラーが出ますので、適当な方法があれば教えていただきたいです。

・ツリー全体表示


	【79240】Re:複数のファイルに存在する表を抜き出...

マナ - 17/6/18(日) 18:21 -


	引用なし

	パスワード

▼inoue さん：

CurrentRegionが使えるならば
データ範囲をこんな感じでコピーできるかもしれません。

Sub test()
　　Dim ws As Worksheet
　　Dim r As Range
　　Dim myStr As String
　　
　　myStr = "目印"
　　
　　Set ws = ActiveSheet
　　Set r = ws.Cells.Find(What:=myStr, LookIn:=xlValues, LookAt:=xlWhole)
　　
　　Set r = r.CurrentRegion
　　Set r = Intersect(r, r.Offset(2))

　　r.Copy
　　
　　Worksheets.Add
　　Range("A3").PasteSpecial xlPasteValues
　　
End Sub

・ツリー全体表示


	【79239】Re:複数のファイルに存在する表を抜き出...

inoue - 17/6/18(日) 17:20 -


	引用なし

	パスワード

▼カリーニンさん：
>よくみたら、ご自身が書いたコードの中にブックを開く記述がありましたね。

ご返信いただきありがとうございます。

記載させていただいたコードはほぼネット検索で出てきた
そのままを使用しています。

そのため、ここの部分がこんなことを表しているんだろうな
程度はわかるのですが、このコードに新しいコードを入れたりする
ことが知識に乏しくできません。。

・ツリー全体表示


	【79238】Re:複数のファイルに存在する表を抜き出...

inoue - 17/6/18(日) 17:16 -


	引用なし

	パスワード

▼マナさん：
>▼inoue さん：
>
>今のコードを修正していけばできると思います。
>課題は、
>
>１）表の場所が、決まっていない
>２）シート名が決まっていない（まとめ、まとめ１　など）
>
>の２点ですね。
>まずは、１）から。
>
>・表の横サイズ（列数）は固定ですか
>・表に必ずあって、他にはない単語はありますか。
>
>例えば、電圧というセルは、シート内に１箇所ですか
>もし、そうなら、電圧を検索して、見つかったセルから
>転記するセル範囲を決めることができませんか。

ご返信ありがとうございます。

１）
・表の横サイズは固定です。

・表に必ずあってほかにない単語はあります。
→表の左上に必ず同じ表題が1か所ついています。

また、目印となりそうな心当たりとして挙げた「電圧」は
表以外にも存在しますが、目的の表の「電圧」はセルの左上から
数えて一番初め（VLoolupだと最初に検索に引っかかる場所）にあります。

>もし、そうなら、電圧を検索して、見つかったセルから
>転記するセル範囲を決めることができませんか。
という部分についてですが、そのような発想でvbaを書きたいのですが
知識が乏しくvlookupのようなことをする機能を自分でvbaに書くことが
できません。

以上、何卒よろしくお願いいたします。

・ツリー全体表示


	【79237】Re:複数のファイルに存在する表を抜き出...

カリーニン - 17/6/18(日) 15:25 -


	引用なし

	パスワード

よくみたら、ご自身が書いたコードの中にブックを開く記述がありましたね。

・ツリー全体表示


	【79236】Re:複数のファイルに存在する表を抜き出...

マナ - 17/6/18(日) 15:19 -


	引用なし

	パスワード

▼inoue さん：

今のコードを修正していけばできると思います。
課題は、

１）表の場所が、決まっていない
２）シート名が決まっていない（まとめ、まとめ１　など）

の２点ですね。
まずは、１）から。

・表の横サイズ（列数）は固定ですか
・表に必ずあって、他にはない単語はありますか。

例えば、電圧というセルは、シート内に１箇所ですか
もし、そうなら、電圧を検索して、見つかったセルから
転記するセル範囲を決めることができませんか。

・ツリー全体表示


	【79235】Re:複数のファイルに存在する表を抜き出...

カリーニン - 17/6/18(日) 14:45 -


	引用なし

	パスワード

横から失礼します。

>vbaには自動でファイルを開いて自動で閉じてくれる
>命令文もあるようですがそれでも不可能でしょうか。

これはマクロの自動記録で参考コードが得られますし、ネットの検索で
いくらでも参考コードが得られると思います。

・ツリー全体表示


	【79234】Re:複数のファイルに存在する表を抜き出...

inoue - 17/6/18(日) 14:30 -


	引用なし

	パスワード

▼γ さん：
>ファイルを開かずには無理です。
>それにこだわるなら、達成できません。
>普通の手法でトライして下さい。

ご返信ありがとうございます。

言葉の使い方が悪く申し訳ありませんが、
手動でファイルを開かずに、ということでした。
vbaには自動でファイルを開いて自動で閉じてくれる
命令文もあるようですがそれでも不可能でしょうか。

しつこいようですが、何卒よろしくお願いいたします。

・ツリー全体表示


	【79233】Re:複数のファイルに存在する表を抜き出...

inoue - 17/6/18(日) 14:23 -


	引用なし

	パスワード

▼マナさん：
>▼inoue さん：
>
>>vbaの応用例を調べて、同一フォルダ内に存在するすべてのファイルから指定した
>>セル（A1等）の値を一覧にするvbaは作成できたのですが、
>
>どいうものを作成したか教えてください。
>それを改良できるかもしれません。

ご返信ありがとうございます。
下記に記載します。

Sub getA_F()

Application.ScreenUpdating = False

Const myPath As String = "C:Users\ユーザ名\Desktop\フォルダ名\"
Dim rIdx As Long
Dim fName As Strimg
fName = Dir (myPath & "*.xls")
Do Until fName = ""
Workbooks.Open Filename:=myPath & fName
rIdx = rIdx + 1

Cells(rIdx, 1).Value = fName
Me.Cells(rIdx, 2).Value = ActiveSheet.Range("A1").Value
Me.Cells(rIdx, 3).Value = ActiveSheet.Range("B1").Value
Me.Cells(rIdx, 4).Value = ActiveSheet.Range("C1").Value
Me.Cells(rIdx, 5).Value = ActiveSheet.Range("D1").Value
Me.Cells(rIdx, 6).Value = ActiveSheet.Range("E1").Value
Me.Cells(rIdx, 7).Value = ActiveSheet.Range("F1").Value

Windows(fName).Close
fName = Dir
Loop

Applicaion.ScreenUpdating = True

End Sub

よろしくお願いいたします。

・ツリー全体表示


	【79232】Re:複数のファイルに存在する表を抜き出...

γ - 17/6/18(日) 14:11 -


	引用なし

	パスワード

ファイルを開かずには無理です。
それにこだわるなら、達成できません。
普通の手法でトライして下さい。

・ツリー全体表示


	【79231】Re:複数のファイルに存在する表を抜き出...

マナ - 17/6/18(日) 8:07 -


	引用なし

	パスワード

▼inoue さん：

>vbaの応用例を調べて、同一フォルダ内に存在するすべてのファイルから指定した
>セル（A1等）の値を一覧にするvbaは作成できたのですが、

どいうものを作成したか教えてください。
それを改良できるかもしれません。

・ツリー全体表示


	【79230】複数のファイルに存在する表を抜き出して...

inoue - 17/6/18(日) 2:08 -


	引用なし

	パスワード

こんばんは。
お世話になります。inoueと申します。

当方初心者でありまして、標記のようなことをしたく、
助力いただけないかと投稿させていただきました。

早速ではありますが、簡単に図で説明させていただきます。

現状－－－－－－－－－－－－－－－－－－

ファイル1
　　電圧　電流　・・・・・・　
a　　１　　２
b　　３　　４
c　　５　　６

ファイル2
　　電圧　電流　・・・・・・
d　　７　　８
e　　９　　１０
f　　１１　１２

ファイル3
ファイル4
ファイル5
・
・
・

－－－－－－－－－－－－－－－－－

現在、上図のような表を含むファイルが500個ほどあります。
すべてのファイルのすべての表を一つのファイルの一つの表に
まとめたいと考えています。

ひとつひとつのファイルを開いてコピー＆ペーストではあまりに
時間がかかりますので、vbaにてファイルを開かずに特定のセル値を
抜き出してくることはできないかと考えています。

やりたい－－－－－－－－－－－－－

ファイルx（ファイル1からすべてのファイルの情報を集約したファイル）
　電圧　電流　・・・・・・
a　１　　２
b　３　　４
c　５　　６
d　７　　８
e　９　　１０
f　１１　１２
・
・
・
・
ーーーーーーーーーーーーーーーーーーー

vbaの応用例を調べて、同一フォルダ内に存在するすべてのファイルから指定した
セル（A1等）の値を一覧にするvbaは作成できたのですが、
厄介なことにデータの元であるファイル1とファイル2とでは表はまったく異なる
セル番号の場所に作られており、vbaの中であらかじめセル番号を指定するといった
方法では望みの抜き出し方をすることができませんでした。

恐らく、表の各見出し（電圧　等）をvba中で指定してその見出しを検索し、
その見出しの列を抜き出してくるといった方法でうまくいくのかと思うのですが、
具体的にどのようなvbaを組んだらいいのかわかりません。

当方初心者でありまして、各命令文が何を意味しているのか理解が乏しいです。
大変恐縮ですが、上記のような図の抜き出し方が叶うvbaの作成例がございましたら
貼り付けてくださると幸いです。

下記にデータ元である手持ちファイルについて補足させていただきます。
1.それぞれのファイル名には規則性はないため、複数のファイルを指定するためには
同一フォルダ内のファイル、という指定が良いと考えています。
2.各ファイルのシート名も多少ばらつきがあります（まとめ、まとめ１　など）
そのファイルを最後に開いたシートから読みだしてくるような指定の仕方をするのが
よいかと思っています。

不躾な質問ながら、ご回答いただけますと幸いです。
何卒よろしくお願い申し上げます。

・ツリー全体表示


	【79229】Re:OLEObject

マナ - 17/6/17(土) 21:08 -


	引用なし

	パスワード

▼kuma さん：

＞　"CMB" & i

CMB列が存在するので、別の名前にできませんか。

・ツリー全体表示


	【79228】Re:dドライブを常にアクティブにするには

Pomerol

- 17/6/17(土) 5:09 -


	引用なし

	パスワード

▼カエムワセトさん：
>こういう記事がありました。参考まで。
>
>ht　tp://michisugara.jp/archives/2013/windows8.1_hdd.html
お返事遅れてすみませんでした。
なかなか、直らないんですね。
でも、丁寧なご返事、たいへんありがとうございました。

・ツリー全体表示


	【79227】Re:既に開いているIEの画面から、エクセ...

カリーニン - 17/6/16(金) 21:13 -


	引用なし

	パスワード

あとはAPIを使った方法か、IEウィンドウに対してSendKeysでF8を送るか、ですかね。

あとはAPIを使った方法に関してはネット上にサンプルがあると思いますし、私自身は
IEに対しては行ったことがありません。

また、SendKeysは不安定ですし、また取引先のシステムということですので、VBAから
操作した結果に対しては当方は当然責任は負えません。

先ほどの「三流君VBAでIE操作 InternetExplorer.Applicationを操作する」をリンク先
を含め隅から隅まで熟読すると手がかりがあるかもしれません。

・ツリー全体表示


	【79226】Re:既に開いているIEの画面から、エクセ...

keen - 17/6/16(金) 20:50 -


	引用なし

	パスワード

▼カリーニンさん：
>あと、「IEで開くデータベースページ」が社内システムでしたら、本件は
>ここのようはQ&Aサイトではなく、社内のシステム管理者に相談すべき事柄
>です。

ありがとうございます。

F8を押すことでURLは変わるのですが、規則性のないアルファベットの羅列であり、URL指定はできないと思います。

なお、このシステムは社内システムではなく、客先のシステムであり当方からの質問も受け付けてくれるシステム管理者がいない状況です。

ありがとうございます。

・ツリー全体表示


	【79225】Re:既に開いているIEの画面から、エクセ...

カリーニン - 17/6/16(金) 20:43 -


	引用なし

	パスワード

あと、「IEで開くデータベースページ」が社内システムでしたら、本件は
ここのようはQ&Aサイトではなく、社内のシステム管理者に相談すべき事柄
です。

・ツリー全体表示


	【79224】Re:既に開いているIEの画面から、エクセ...

カリーニン - 17/6/16(金) 20:39 -


	引用なし

	パスワード

>IEで開くデータベースページが、F8を押下することで、次のページに行くことになっています。

手動でページを切替えたとき、URLが変わるようでしたら、VBAでURLを指定してやることでIEの
ページを切替えることができます。
javascriptで制御してるようでしたら私はわかりません。

・ツリー全体表示


	【79223】Re:既に開いているIEの画面から、エクセ...

Keen - 17/6/16(金) 20:32 -


	引用なし

	パスワード

▼カリーニンさん：
>ちょっとハードルが高くなりますが、参考になるかもしれません。
>
>三流君VBAでIE操作 InternetExplorer.Applicationを操作する
>ht　tp://www.ken3.org/cgi-bin/group/vba_ie.asp

参考ホームページをご教示いただき、ありがとうございます。
IEで開くデータベースページが、F8を押下することで、次のページに行くことになっています。

・ツリー全体表示


	【79222】Re:既に開いているIEの画面から、エクセ...

カリーニン - 17/6/16(金) 20:24 -


	引用なし

	パスワード

ちょっとハードルが高くなりますが、参考になるかもしれません。

三流君VBAでIE操作 InternetExplorer.Applicationを操作する
ht　tp://www.ken3.org/cgi-bin/group/vba_ie.asp

・ツリー全体表示


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

161 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free