VBScriptでEUC文字列をSJIS文字列に
VBScript+WSHを使って、変数に入っているEUC-JP文字列をShift_JIS文字列に変換したいのですが、ウェブで情報を探しても、ファイルを扱う物ばかりです。 Set stream = CreateObject("ADODB.Stream") stream.Charset = "EUC-JP" stream.Open stream.WriteText = eucstring '...
View Articledir /a-d/sからほしいデータだけを抽出
dir /a-d/s >test.txtで保存したデータから下記の情報だけエクセルに表示するためには どうようなVBを作ればよろしいのでしょうか。 yyyy/mm/dd(A列) hh:mm(B列) ファイルサイズ(C列) ファイル名(D列) C:\Users\AA\BBB\Local のディレクトリ 2013/04/15 22:08 36 AAAAA.jpg 2013/05/27 23:59...
View ArticleOutlook2007送信前の宛先確認のVBAにて
Outlook2007 送信前の宛先確認のマクロを設定したいと考えています。 Option Explicit Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) On Error GoTo Ex ception Dim strCC strCC = vbCrLf Dim objRec As...
View ArticleエクセルでURLに特定文字が含まれるか調べる方法
複数のURL(webページ)から特定文字が含まれているURLのみを調べる方法について教えてください。 海外サイトの調査候補URLを複数用意し、そのURLのページソースに「news」という特定文字列が含まれているURLを抽出する方法として、エクセルのマクロで以下を試してみました。 ---------- Sub KeyWord_Search() Dim objHTTP As Object Dim i...
View ArticleIE9のダウンロード通知バーのVBからの操作
IE9（Internet Explorer 9）でのファイルダウンロード時に表示される「通知バー」をVBAを利用して操作（ダウンロードボタンの押下）を行いたいと考えています。 http://okwave.jp/qa/q8035721.html こちらの質問を参考にして、自分の環境がWindows8 Office 2010 standard...
View ArticleVB6 でSSH接続がしたい
WinSCPを使って、SSH接続をし、ファイルをアップロードしたいのですが、 ログイン、およびアップロードができません。 【開発環境】 VB6.0 【コード】 Shell WinscpPath & " " & Servername, vbMaximizedFocus →これだと、WinSCPの起動とサーバーまでの接続しかできていないようです。...
View ArticleＶＢＡを使用し、自動でシートごとに連番を入れる方法
Excel２００３のＶＢＡを使用し、自動でシートごとに連番を入れる方法を教えて下さい。 Ｐ０９１１～ Ｐ０９５０までとか番号が自由に設定出来て、尚且つ、最初の番号に入っているエクセルデータが最後の番号まで同じ内容で導入されているのが望ましいです。 どなたか、ご教示頂けると大変助かります。
View ArticleVBSのSendKeysでクリックができない
音声認識アプリケーションからvbsを実行できるのですが、ここで一度だけマウスクリックしたい状況が出てきて困っています。 Dim WSHShell As Object Set WSHShell = CreateObject("Wscript.Shell") WSHShell.AppActivate "操作したいアプリケーション名" WSHShell.SendKeys "{TAB}" 'OK...
View Article【VBA】エクセル2010での読み取り専用解除
エクセル2003をエクセル2010にバージョンアップすることになり、 既存のVBAマクロのテストをしていたところ、読み取り専用を解除するマクロがうまく動作しません。 2003までは編集後、読み取り専用解除マクロを動作させると読み取り専用が解除できましたが、 2010では変更を破棄して、開きなおすか、別ファイルで保存するかのダイアログが出てしまいます。...
View Articleマクロでのグラフタイトルの存在確認および取得
グラフタイトルを設定していればグラフタイトルを、設定していなければ「タイトル無i」という文字をstrGTITLEに返そうとしています。(この処理はfor i = 1 to ActiveSheet.ChartObjects.countのループ内で行っています。)...
View ArticleVB.NET 自作プロパティが変更されたらイベント
お世話になります。 ご回答宜しくお願いします。 現在VBでDLLプログラムを開発しております。 以下簡単な仕様です。 DLLで自作のプロパティ（ SelectedFlg ）と、 SelectedFlgが変更された時に発生するイベントを追加しました。 親システムからVBのDLLを呼び出し、親システムがSelectedFlgの値を変更すると DLL内でイベントを感知し、処理をするというような感じです。...
View ArticleExcel VBAのソートについて
Excel2003です。 現在、A列に1～5の数字がランダムで200行ほど入力されています。 このA列をキーとして A:1 1 A:2 2 A:3 3 A:4 4 A:5 5 A:6 1 ・ ・ ・ のようにソートすることは可能でしょうか？
View ArticleVBAでhtmの全てのタグの名前・内容を抜出したい
お世話になります。 htmの全ての「タグの名前・内容」を抜き出す方法を知りたいと 思っております。 具体的には、「A列にタグの名前」「B列にタグの内容」を自動入力したいと 思っております。 特定のタグのみを抜き出す方法は、ネットで調べて分かったのですが、全てのタグ を抜き出す方法を教えて頂ければと思います。 宜しくお願いします。
View ArticleVB.NETで作成したDLLについて
ご回答宜しくお願い致します。 現在、VBでユーザーコントロールのDLLを作成し、 DLLをC#で使用するというプログラムを開発してます。 そこで、以下のような現象が起こり 対応できかねております。 まず、VBで以下のメソッドを書きました。 Public Sub showMessage(ByVal bol As Boolean) MessageBox.Show(bol) End Sub...
View ArticleVB.NETで作成したDLLについて
ご回答宜しくお願い致します。 現在、VBでユーザーコントロールのDLLを作成し、 DLLをC#で使用するというプログラムを開発してます。 そこで、以下のような現象が起こり 対応できかねております。 まず、VBで以下のメソッドを書きました。 Public Sub showMessage(ByVal bol As Boolean) MessageBox.Show(bol) End Sub...
View ArticleVBAで複数のCSVの読み込み
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_050.html こちらのサイトの「古くからあるステートメントの方法」を参考にしてCSVファイルを選択してエクセルのシート上にCSVの情報を貼れたのですが、...
View ArticleVB.net TreeViewコントロール
VB.net(2010 Express)でTreeViewコントロールを使用し、子ノードと子ノードの間にドラックアンドドロップする際に線を表示したいのですが、どのようにすれば良いのか分かりません。 単純に子ノードのドラッグアンドドロップはできるのですが、子ノード同士の間に線を表示する方法が分からずにハマっています！！...
View Articleエクセルの式の代入
早速ですが セルに =IF(AK3554>0,"○",IF(AK3554<0,"▽","□")) を 代入してあります。 これを、ＶＢＡの側から 送り込みたいのですが（IF文の答え送り込んだのでは 再計算の時困りますので、式を送り込みたい） で Range("ay" & endgt ) = "=IF(AK" & endgt & ">0," & "○"...
View ArticleAccessVBA Oracleプロシージャ実行
以下の環境でシステム開発を行っています。 クライアントOS WinXp サーバOS Win2000 Server 開発言語 Access2000 VBA DB Oracle7 VBAよりOracle上のプロシージャを実行しようとしています。 このプロシージャは入力パラメータが3つあります。 パラメータのデータ型は全て[char]です。 VBAでプロシージャを実行する際に、上記パラメータに文字列を...
View Articleマクロ 違うファイルから抽出して貼り付け
使うファイルは「重点」ファイルと「田中」ファイル 【重点】ファイルには シート：入力 シート：集計 とある このファイルは月末に私だけが全担当者の項目数の集計を出す為に処理しています。 シート：入力には 既に作成しているリストボックスがあり→列A～Cに（各名前60名） Dに月（4月～3月） E～G項目（各項目10件） その隣にコマンドボタンで検索と保存を作成しています。...
View Article