BarcodeMasterのプロフィール

同じブックの中に複数ファイルがあります。ファイルはどれも同一のフォーマットです。 それぞれにシートが3つあるのですがこの3つの中のシートの中の1つのシートのA1からA10と B1からB10のデータを抽出してきて同じブックの中の「まとめ」とあるシートのB1：K1・B2：K2に縦横変換してコピペをしたいです。 ファイルが60くらいあるので繰り返し開いてコピペしての作業が大変なので これを繰り返し下どんどんファイルからコピペしたいです。 1つのファイルから2行まとめにコピペするのですが、マクロで簡単に作業できる方法はないでしょうか？ またファイル名をまとめシートA1にも記載したいのですが、可能でしょうか？ 記録マクロで作成しようと思ったのですが複数ファイルを次々「まとめ」シートに羅列ができず。。 お力を貸していただきたいです。 よろしくお願い致します。

Inputbox で URL 文字列の一部を打ち込むと、IE オブジェクトがある場合には新規タブを作成し、当該サイトへアクセスするスクリプトを作っています。 後述がサンプルです。 スクリプトの最後にウィンドウをアクティブにするコードを入れているのですが、スクリプト自体はエラーなく完了するものの、IE ウィンドウをアクティブにすることができません。 Win10+IE11 を使っているのですが、何かコードが足りなかったりするのでしょうか。。。 それとも、Win10 + IE11 環境ではそもそも VBS で IE ウィンドウをアクティブにすることはできないのでしょうか。。。 アドバイスを下さると幸いです。 よろしくお願いいたします。 -------------------------------------------------------------------- Dim linknum dim objIE dim spurl linknum=Inputbox("リンク番号を入力してください。") spurl="https://xxxx" & linknum 'Shell.Applicationオブジェクトの作成 Set objShell = CreateObject("Shell.Application") 'IEウィンドウの個数をカウント lngCount = 0 For Each objWindow In objShell.Windows lngCount = lngCount + 1 Next With objShell.Windows 'IE オブジェクトがないときは、新しく作成する If lngCount = 0 Then .Item.Navigate2 spurl lngCount = lngCount + 1 objIE.FullScreen = True objIE.Visible = True 'IE オブジェクトがあるときは、タブを操作する（新しいタブを作成） Else .Item(lngCount - 1).Navigate2 spurl,&H800 IE ウィンドウをアクティブにする Set WshShell=Wscript.CreateObject("Wscript.Shell") WshShell.AppActivate "ページタイトル" WshShell.SendKeys "%( )" WshShell.SendKeys "R" End If End With -------------------------------------------------------------------------------

※ Waveinコントロールの著作権は、Kentaro HARA氏にあります。 　Windows7 Professional SP1，64bit上のVS2010のVB2010で、Waveinコントロールを用いたAppを開発し、VSのセットアッププロジェクトでインストーラーを作りました。ターゲットはx86です。 　開発機ではインストーラーが作成したexeは問題なく動くのですが、Windows7 Ultimate SP1，64bitのマシンにインストールしたexeが起動しません。というか、起動直後（ロード直後？）に停止するので、デバック情報も取れなくて困っています。 　デバック情報がないのでWaveinが原因ではないかも知れませんが、他に心当たりがありません。HARA氏のHPによれば、C++のランタイムが必要となっていますので、 　　VC++ 2010 再頒布可能パッケージ (x86) 　　VC++ 2010 再頒布可能パッケージ (x64) を順番に当ててみましたが、駄目でした。 　何か情報はないでしょうか？。

同じブックの中に複数ファイルがあります。ファイルはどれも同一のフォーマットです。 それぞれにシートが3つあるのですがこの3つの中のシートの中の1つのシートのA1からA10と B1からB10のデータを抽出してきて同じブックの中の「まとめ」とあるシートのB1：K1・B2：K2に縦横変換してコピペをしたいです。 ファイルが60くらいあるので繰り返し開いてコピペしての作業が大変なので これを繰り返し下どんどんファイルからコピペしたいです。 1つのファイルから2行まとめにコピペするのですが、マクロで簡単に作業できる方法はないでしょうか？ またファイル名をまとめシートA1にも記載したいのですが、可能でしょうか？ 記録マクロで作成しようと思ったのですが複数ファイルを次々「まとめ」シートに羅列ができず。。 お力を貸していただきたいです。 よろしくお願い致します。

お世話になっております。 Access VBAを勉強しております。 テキストボックスに漢字とひらがなしか入力できないようにするにはどうすれば良いでしょうか。 Select Case等を使ってできないでしょうか。 初心者のため初歩的な質問で恐縮ですが、ご教授お願いします。