ja-jp http://knowledge.livedoor.com/profile/25393 Sat, 14 Nov 2009 23:27:30 +0900 Sun, 20 Sep 2009 22:28:54 +0900 http://knowledge.livedoor.com/ livedoor knowledge - user - mr_r00 Copyright 1996- livedoor Co.,Ltd. http://knowledge.livedoor.com/img/cmn/noimg_m.gif http://knowledge.livedoor.com 43 43 http://knowledge.livedoor.com/42352 ログの書き込み終了をVBScriptで捕らえることは可能でしょうか？ とあるシステムで3分ごとに書き込みが行われるログがあります。 それをプログラムでコピーしたいのですが書き込み最中にコピーはまずいですよね・・ （ロックはされるかもしれないが・・？？） 書き込みが終了した時点をプログラムで判断することは可能でしょうか？ Sun, 20 Sep 2009 22:28:54 +0900 http://knowledge.livedoor.com/42352 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 Wed, 21 Oct 2009 06:10:11 +0900 http://knowledge.livedoor.com/42351 VBScriptでExcelを操作するときfindを使うことが出来ません。 ExcelのA列に日付がずらずらと入っているのですがその中から「今日」に該当する部分を探したいと思っています。 findを使うことが出来ないでいます。 Const xlValues = -4163 Set objExcelApp = CreateObject("Excel.Application") objExcelApp.Visible = True objExcelApp.Workbooks.Open("C:\Book1.xls") strLastDay = Cstr(Date - 1) With objExcelApp.WorkSheets("Sheet1").Rangge("A8:A65535") Set objClm = .Find(Trim(strLastDay),,xlValues) If Not objClm Is Nothing Then intCol = objClm.Column intRow = objClm.Row このあとどうしたらいいかわかりません・・・お願いします。 Sun, 20 Sep 2009 22:21:04 +0900 http://knowledge.livedoor.com/42351 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Mon, 19 Oct 2009 21:06:03 +0900 http://knowledge.livedoor.com/42218 VBScriptで指定した範囲の中で対象の文字列が含まれている件数を数えたいと思っています。 やり方が思いつかずわからないので助けてください。 ログの内容は下記のようになっています。 /*/*/*/*/*/*/*/*/*/*/* 2009/08/08 AM9:00 LOG START /*/*/*/*/*/*/*/*/*/*/* PC01 08:00 PC05 08:10 PC100 07:00 /*/*/*/*/*/*/*/*/*/*/* LOG END /*/*/*/*/*/*/*/*/*/*/* /*/*/*/*/*/*/*/*/*/*/* 2009/08/08 AM10:00 LOG START /*/*/*/*/*/*/*/*/*/*/* PC101 09:00 PC55 09:20 PC111 08:00 PC101 09:50 /*/*/*/*/*/*/*/*/*/*/* LOG END /*/*/*/*/*/*/*/*/*/*/* . . . 一時間ごとにログに情報が書き込まれているわけですが「LOG START」から「LOG END」までの間に指定文字列が含まれる行をカウントしたいと思っています。 その一時間後との値をエクセルに保存していきたいのですが・・・ ヒントなどいただけないでしょうか？ Thu, 10 Sep 2009 23:17:05 +0900 http://knowledge.livedoor.com/42218 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Mon, 14 Sep 2009 22:45:08 +0900 http://knowledge.livedoor.com/39623 ★☆★☆私の作ったVBScriptプログラムを上司になったつもりでダメだししてくれる方お願いします★☆★☆ 厳しい言葉をいただけると幸いです。 プログラムの要件として ・MDBのデータを指定条件で抽出し表示する。 ・必要であればExcelへ転記する ・転記した場合フォルダを作成（その中へテキストも作りテンプレートに沿ったSQLを発行し記録する予定ですがそこはまだ出来て無いです） ここの処理やばくない？とかそういったことあったらどんどん言ってください。 プログラムのソース http://www10.atpages.jp/chiechie/RS.html MDB http://www10.atpages.jp/chiechie/db1.mdb 必要な配置箇所 C:\db1.mdb D:\レコード書き込みテスト.xls D:\TEST\案件.xls（B列に適当に数字１～２０くらい CとDの１行目に適当な文字列） 勝手にバナーのタグが入ってしまいます。５３７行目のBODY以降から５８９行目は削除してください。 P.S. あと今まで教えてくださった方に大変感謝しております。 Mon, 30 Mar 2009 22:05:26 +0900 http://knowledge.livedoor.com/39623 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Thu, 30 Apr 2009 06:10:08 +0900 http://knowledge.livedoor.com/39499 Do While～Loopの脱出方法とコードのまとめ方について質問させてください。 このプログラムはあるサイトの隠しデータに値を飛ばします。 １の値が入ると指定ディレクトリにテキストファイルを作ります。 一定時間が経過するとテキストファイルを消して隠しデータに２を飛ばすと新たな処理を始めるといったものです。 ここで悩んでいる部分があるのですがテキストファイルは１の値が入った後の処理が終われば自動に消えるのですが、ときたま消えない時があります。その判断基準は１３０秒過ぎたらおかしいです。 テキストファイルがある間はグルグルループをしていますがテキストファイルが消去されない場合無限ループに陥ってしまいます。 このプログラムの処理が開始してから１３０秒経ってもループしていたら脱出するといった方法はどのようにすればいいでしょうか？ 脱出する際このプログラムでテキストを消し新たに値の１を飛ばすのを２回まで行うようにはしたいと思っています。 あとこのプログラムですが似通った部分があるなーと自分では考えてしまうのですがまとめようとするとうまく動きません。 Callで呼ぶ方法でやってみたのですが・・・プログラムのまとめ方にコツはありますか？ Set shell = CreateObject("Shell.Application") For Each objWindow In shell.Windows If TypeName(objWindow.document) = "HTMLDocument" Then If objWindow.Document.URL = "http://www.yahoo.co.jp/" Then objWindow.document.getElementById("name").value = "1" End If End If Next WScript.Sleep(3000) Set objFS = CreateObject("Scripting.FileSystemObject") Do While objFS.FileExists("D:\test\test.txt") WScript.sleep(250) Loop If objFS.FileExists("D:\test\test.txt") = False Then Set shell = CreateObject("Shell.Application") For Each objWindow In shell.Windows If TypeName(objWindow.document) = "HTMLDocument" Then If objWindow.Document.URL = "http://www.yahoo.co.jp/" Then objWindow.document.getElementById("name").value = "2" End If End If Next Set shell = Nothing End If Tue, 24 Mar 2009 22:36:23 +0900 http://knowledge.livedoor.com/39499 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Mon, 30 Mar 2009 22:07:21 +0900 http://knowledge.livedoor.com/39447 HTML上のボタンをクリックしVBScriptの動作をキックさせたいと思っています。 HTAで出来たものでなくHTMLのボタンをクリックしJavaScript？でメッセージを出し起動させるというものです。 ボタンを押してVBスクリプトをキックさせるにはどうしたらいいでしょうか？ ボタンはこんな感じです。↓ <input type="button" id = start value="はじめ！" style="width:96;" Onclick=" If( Confirm('確認') ) { document.getElementById('hidSelect').value = '1' } "> <span id ="state"></span> <input type = hidden id = hidSelect value = ""> Sun, 22 Mar 2009 11:32:17 +0900 http://knowledge.livedoor.com/39447 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Tue, 24 Mar 2009 22:35:52 +0900 http://knowledge.livedoor.com/38674 VBScriptでIEを開きあるサイトにアクセスしリンクをクリックするプログラムを作っています。 対象としているサイト（イントラですが）が動的？にリンクが増えてしまうので「getElementsbytagname」が使えないのかなと思っております。 今ソースをにらめっこしながらやっているのですがわかったことはJavaScriptで記述されていることだけで・・・・ どうリンクを取得してあげたらいいのかというところで全く分からず悩んでいます。 <span id="TurnOffAccessibility" style="display:none"> <a href="#" class="ms-acclink" onclick="SetIsAccessibilityFeatureEnabled(false);UpdateAccessibilityUI();return false</a></span> リンク部のソースはこんな感じです。 http://www.happy2-island.com/vbs/cafe02/capter00708.shtml この辺のサイトを参考にしてやってみていますがいまいちJavaScriptが分からなくて・・・（HTMLもですが） どのようにしたらいいでしょうか？ Sun, 08 Feb 2009 00:33:37 +0900 http://knowledge.livedoor.com/38674 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Wed, 11 Mar 2009 06:10:05 +0900 http://knowledge.livedoor.com/38337 VBAでセルに入っている文字をカウントしていますが、問題に直面しています。 Dim cnt As Long Dim i As Long Dim lastRow As Long For i = 1 to 20 step 2 lastRow = Cells(65536, i).End(xlUP).Row cnt = WorksheetFunction.CountIf(ActiveSheet.Range(Cells(10, i),Cells(lastRow, i), "お世話になっております") cnt = cnt + cnt Next Excelのセルを1列ずつ飛ばして列に「お世話になっております」が含まれたら件数をカウントしています。 そのカウント数が何故かリセットされてしまいます。 カウント数を足していきたいのですが・・・考え方自体が違うのでしょうか？ Mon, 19 Jan 2009 23:27:11 +0900 http://knowledge.livedoor.com/38337 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 2 Thu, 19 Feb 2009 06:10:07 +0900 http://knowledge.livedoor.com/38325 HTAでレコードを条件検索するプログラムを作っています。 【テーブルの作成※簡素化しています】 strMES = strMES & "<table id='strData'><tr>" & _ "<td class='c1' align=center>選択</td>" & _ "<td class='c2' align=center>時間</td></tr>" Do If objRS.Eof Then Exit Do strMES = strMES &"<tr>"& _ "<td class='c1'><input type='checkbox'>" & _ "</td>" & _ "<td class='c2'>" & objRS(7) & "</td></tr>" objRS.MoveNext Loop strMES = strMES & "</table>" objRS.Close 【取得】 For Each strTR In document.getElementByID("strData").getElementsByTagName("tr") Set strTDs = strTR.getElementsByTagName("td") For Each strCheckBox In strTDs(0).getElementsByTagName("input") If strCheckBox.Checked = True Then strID = strTDs(0).name'?getElementsByTagName("input")(0).Value strNAME = strTDs(2).Value'?getElementsByTagName("input")(0).Value strKEN = strTDs(3)'getElementsByTagName("input")(0).Value Msgbox "選んだのは" & vbcrlf & strID & "..." & strNAME & "..." & strKEN End If Exit For Next Next 「TD」内に含まれている文字列を取得する値としたいのですがオブジェクトがありませんとかいう風になってしまいます。 ValueかNameでOKかとやってみたのですがうまくいきません。それか文字列を抜き出す方が難しいでしょうか？ Sun, 18 Jan 2009 23:11:51 +0900 http://knowledge.livedoor.com/38325 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Wed, 18 Feb 2009 06:10:05 +0900 http://knowledge.livedoor.com/38283 VBScriptでウィンドウの操作をするプログラムを作っています。 JavaScriptでウィンドウサイズを変えているものを強制的にVBScriptでサイズ変更するのはテストサイトでは問題ないのですが・・・ 本当に対象としているサイトは社内インフォラサイト内なので見れないのですが・・・ http://www.google.com/notebook/public/06577523275749879902/BDQrTDAoQ6eTdiOwj?hl=ja テストサイトではobjWindow.Document.URL = URL2とすればabout:blankがURL2のサイトになるのですが・・・対象サイトのアドレスはどうしても入ってくれません。 URL2をグーグルのアドレスに変えてみればうまくいくのですがその対象サイトだけはどうしてもダメです。 そのサイトに入るにはテストサイト同様にリンクをクリックしてからでないと入れないようになっています。そのハイパーリンクで右クリックの対象ファイルを保存をすると「Internet Explorerでは、○○をダウンロードできません。インターフェイスがサポートされていません。」となるようなサイトです。 どうにかしてオープンする前にウィンドウサイズを指定してしまいたいのですがどうにもこうにもうまくいきません。 例えばなのですが、元サイトをいじることなく一旦JavaScriptなどで指定されているサイズを”一時的”に書き換えて立ち上げるとかは出来ないでしょうか？ Thu, 15 Jan 2009 23:19:23 +0900 http://knowledge.livedoor.com/38283 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Sun, 18 Jan 2009 20:18:41 +0900 http://knowledge.livedoor.com/38233 HTAでレコードを条件検索するプログラムを作っています。条件によるレコード検索までは出来ているのですが、その結果の転記が出来ないでおります。 検索を実行するとHTA上にチェックボックスが作成されます。 チェックボックスにチェックがついたものだけをエクセルへ転記を行いたいのですがどのようにしたらいいのか・・・ ひょっとしたらHTAのオブジェクトを取得してHTA自分自身を操作？？なんておもってやってみたのですが何故かHTAのプログラムだけ結果が返りません。 それかこの考え自体が間違いでしょうか？どなたかヒントで構いませんので力になっていただけないでしょうか？ http://www.google.com/notebook/public/06577523275749879902/BDRomDAoQ8pekyuwj?hl=ja Mon, 12 Jan 2009 14:31:54 +0900 http://knowledge.livedoor.com/38233 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Sun, 18 Jan 2009 20:15:38 +0900 http://knowledge.livedoor.com/38228 VBScriptでウィンドウの操作をするプログラムが出来ましたが・・・本当にこれで良いか自信がもてない部分があります。 JavaScriptでウィンドウサイズを変えているものを強制的にVBScriptでサイズ変更する方法は成功しました。 そこで新たに悩みがあるのですがobjWindow.document.getElementsByTagName・・・・ という一文がありますがobjWindowをobjIEという名前に変更してからクリック動作をさせたいと思っています。 objWindow = objIEと途中でやってみたりしていますが、オブジェクトがありませんといった怒られるエラーに遭遇します。 どこで変更すればよいのでしょうか？ またエラートラップを仕掛けていないのですが・・・どこでどんな風に仕掛けておくのがいいでしょうか？ http://www.google.com/notebook/public/06577523275749879902/BDQrTDAoQ6eTdiOwj?hl=ja Mon, 12 Jan 2009 01:16:50 +0900 http://knowledge.livedoor.com/38228 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 Thu, 12 Feb 2009 06:10:09 +0900 http://knowledge.livedoor.com/38227 HTA（VBScript）で作成しているプログラムがあるのですがなかなかうまく出来ないでおります。 物が出来てきましたがエクセルの転記について四苦八苦しております。 レコードを検索するとチェックボックスを含め表が作成されます。 そのチェックボックスをクリックし転記をすると選択したものがエクセルに転記されるようにしたいのですが、検索したときと表示を変えて転記したいと思っています。 例：HTA上に表示 objRS(2),objRS(3),objRS(4)としたら エクセルに転記 objRS(4),objRS(5),objRS(7)を転記 いい方法が思いつきません。 とりあえずチェックボックスのVALUEには名前のつけ方を工夫してみましたが・・・ 転記する前に自分自身のオブジェクトの取得？を考えてみていたのですがいつまでもうまくいかず困っています。 ヒントをいただけないでしょうか？ http://www.google.com/notebook/public/06577523275749879902/BDQtSDQoQkvvPiOwj?hl=ja Mon, 12 Jan 2009 01:08:35 +0900 http://knowledge.livedoor.com/38227 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 Thu, 12 Feb 2009 06:10:08 +0900 http://knowledge.livedoor.com/38182 VBScriptでIEのウィンドサイズの調整をすることに四苦八苦しています。 Dim URL Dim URL2 Dim objIE Dim objINPUT Dim Width Dim Height Dim X Dim Y Width = 500 Height = 600 X = 0 Y = 0 URL = "http://www10.atpages.jp/chiechie/football.html" URL2 = "http://www10.atpages.jp/chiechie/hello.html" Set objIE = WScript.CreateObject("InternetExplorer.Application") If Err.Number = 0 Then objIE.Navigate URL objIE.Left = X objIE.Top = Y objIE.Width = Width objIE.Height = Height objIE.Visible = True Do Until objIE.Busy = False WScript.sleep(250) Loop Else WScript.Echo "ERR" & Err.Description End If If objIE.Document.URL = URL Then Set objINPUT = objIE.document.getElementsByTagName("A") objINPUT(0).click 'クリックした時点で全画面表示で一回オープンされるはずです 'その状態だと画面がチラチラするので嫌な部分でもあります。 Else WScript.Echo "ERR" & Err.Description End If 'objIE.quit Set objIE = Nothing JavaScriptで出来たページなのですが全画面表示になるようサーバサイドで設定されています。 リンクをクリックして表示をすると全画面で立ち上がるかと思いますがこれを「VBScriptで強制的」に画面サイズを指定する方法は無いでしょうか？（このページと仕様は若干違いますが Dim URLのページが開いてないとDim URL2が開かないということで仮定してください）クリックする前に開くサイズを指定するプロパティとか見つからなくて・・・回避策に悩んでいます。 Fri, 09 Jan 2009 00:17:53 +0900 http://knowledge.livedoor.com/38182 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 Mon, 09 Feb 2009 06:10:07 +0900 http://knowledge.livedoor.com/38152 HTAで日付をフォームに入れたいのですがいまいちうまくいきません。 こんな感じでつくっていますがおかしい表示になってしまいます。 Sub IptToday() Dim dtmDate dtmDate = Year(Now()) & "-" & Right("0" & Month(Now()),2) & "-" & Right("0" & Day(Now()),2) msgbox dtmDate End Sub ・ ・ ・ ・ ・ ・ 【日付】 <input type="text" name="InputDay1" value="">    ～    <input type="text" name="InputDay2" value="">    <input type="button" name="go" value="今日" onclick="IptToday()"> Tue, 06 Jan 2009 23:35:45 +0900 http://knowledge.livedoor.com/38152 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Fri, 09 Jan 2009 00:10:01 +0900 http://knowledge.livedoor.com/37923 間違っているVBのContinueの件で書き込みをしたのですが何故か消えてしまったので再度書きます。 教わったことを参考にやってみたのですがうまくいきません。 Continueの部分がうまくいくPCといかないPCがあるのでどうしたらいいか分からなくなってしまいました・・・ Option Explicit Dim objIE Dim objShell Dim objWindow Dim WinExist Dim strURL Dim strURL2 Dim Flug strURL = "http://www.yahoo.co.jp/" strURL2 = "http://www.google.co.jp/" WinExist = False Set objShell = CreateObject("Shell.Application") For Each objWindow In objShell.Windows If TypeName(objWindow.Document) <> "HTMLDocument" Then ？？？？？ Continue ？？？？？ End If WinExist = True Set objIE = objWindow If objIE.LocationURL = strURL Then Flug = True Exit For End If Next If Flug = True Then msgbox "ヤフー存在" Else msgbox "別の処理を行なう" If WinExist = False Then 'IEが無い場合 起動する Set objIE = WScript.CreateObject("InternetExplorer.Application") objIE.Navigate strURL2 objIE.Visible = True Set objIE = Nothing End If End If Thu, 18 Dec 2008 23:54:02 +0900 http://knowledge.livedoor.com/37923 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 Sun, 18 Jan 2009 06:10:05 +0900 http://knowledge.livedoor.com/37861 配列の要素の部分で例外処理を作りたいのですがどうしたらよいでしょうか？ 例えば AAAA(0) AAAA(1) AAAA(2) AAAA(3) この要素で３の要素だけ変えるにはどうしたらよいのでしょうか？ Mon, 15 Dec 2008 00:49:58 +0900 http://knowledge.livedoor.com/37861 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Thu, 18 Dec 2008 23:37:34 +0900 http://knowledge.livedoor.com/37860 VBScriptの処理でログを出す処理作っているのですが処理中に何らかの原因で正常な処理が出来なかった 場合にエラーログを出したいのですが冗長にならないようにしたいのですが・・・どうすればよいでしょうか？ Option Explicit Const ForAppending = 8 Dim objFileSysFolder Dim objOutFile Dim objFileSysText Dim strScriptPath Dim strCheckPath Dim strCreatePath Dim strDate Dim strCreateFile ・ ・ ・ If XXXX then aaaa Else bbbb End If ・ ・ ・ If YYYY then CCCC Else DDDD End If ・ ・ ・ If ZZZZ then EEEE Else fffff End If Set objFileSysFolder = CreateObject("Scripting.FileSystemObject") strCheckPath = objFileSysFolder.BuildPath("D:\","TEST") strDate = CStr(Right("0000" & Year(Now),4) & Right("00" & Month(Now),2)) If objFileSysFolder.FolderExists(strCheckPath) = True Then Set objFileSysText = CreateObject("Scripting.FileSystemObject") strScriptPath = Replace(WScript.ScriptFullName,WScript.ScriptName,"") strCreateFile = objFileSysText.BuildPath(strScriptPath,strDate & ".log") If objFileSysText.FileExists(strCheckPath) = True Then Set objOutFile = objFileSysText.OpenTextFile(strCreateFile,ForAppending) objOutFile.WriteLine "Date[" & date & "] " & _ "Time[" & time & "] " & _ "User[" & "OK" & "]" objOutFile.Close Else Set objOutFile = objFileSysText.OpenTextFile(strCreateFile,ForAppending) objOutFile.WriteLine "Date[" & date & "] " & _ "Time[" & time & "] " & _ "User[" & "NG" & "]"'ここでメッセージを変えたい objOutFile.Close End If End If Set objFileSysFolder = Nothing Set objFileSysText = Nothing Set objOutFile = Nothing こういったログのルーチンをあるとしますが、If～Else～End Ifの部分でElse以降の場合メッセージを変えるにはどうすればいいでしょうか？ Mon, 15 Dec 2008 00:42:28 +0900 http://knowledge.livedoor.com/37860 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Thu, 18 Dec 2008 23:37:49 +0900 http://knowledge.livedoor.com/37858 インストーラーについて教えて下さい。VBScriptのプログラムを作ったのですがそれをインストールするような形にしたいと思っています。 インストールすると同時に指定のパスに起きたいといったことを考えています（プログラムの内容上指定のパスにしか置けないような？？） また同時にタスクスケジューラーにプログラムを動かす時間を同時に設定できるような感じも行いたいのですが・・・どうしたよいでしょうか？ Mon, 15 Dec 2008 00:25:26 +0900 http://knowledge.livedoor.com/37858 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 Thu, 15 Jan 2009 06:10:13 +0900 http://knowledge.livedoor.com/37823 VBScriptで指定するサイトが開いていなかった場合とある処理を行い、とあるサイトが開いていれば別の処理をし終了させることをやっていますがうまくいきません。 自分の考えとしては １・開いているIEをくるくるループ回して探す ２・その中にヤフーがあればフラグをTrue処理 　　それ以外はFalse処理 これだけで終わりにしたいのですが・・・ Dim objIE Dim objShell Dim objWindow Dim WinExist Dim strURL Dim Flug Dim strURL2 strURL = "http://www.yahoo.co.jp/" strURL2 = "http://www.google.co.jp/" 'IEが起動して無い場合プログラムが起動しないのでダミー立ち上げ Set objIE = WScript.CreateObject("InternetExplorer.Application") objIE.Navigate "about:blank" objIE.Visible = True Set objIE = Nothing WinExist = False Set objShell = CreateObject("Shell.Application") For Each objWindow In objShell.Windows If TypeName(objWindow.Document) = "HTMLDocument" Then WinExist = True Set objIE = objWindow End If Next If objIE.LocationURL = strURL Then Flug = True Else If objIE.LocationURL <> strURL Then Flug = False Else WScript.sleep(1) End If If Flug = False Then Set objIE = WScript.CreateObject("InternetExplorer.Application") objIE.Navigate strURL2 objIE.Visible = True Set objIE = Nothing End If ' 'いろいろな処理があるが省く ' If Flug = True Then msgbox "ヤフー存在" End If End If 絶対にフラグがTrueになることがありません。 Excelでデバッグしてみましたがなぜうまくいかないのかが理解できておりません。 自分としては開いているIEをぐるぐるとまず回ってヤフーが開いていればTrue時の処理を行い終了、 なければFalse時の処理を行うという風にしたいです（無限ループではありませんでした） For eachを使っているので途中でIf Flug以降の処理を行ってしまうのも無駄な繰り返しで困ってしまいます。 そこでフラグを立てることを考えたのですがどうも思うようにいきません。 ボキャブラリが足りませんが、いい知恵を貸していただけないでょうか？ Fri, 12 Dec 2008 01:10:48 +0900 http://knowledge.livedoor.com/37823 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Thu, 18 Dec 2008 23:38:22 +0900 http://knowledge.livedoor.com/37785 VBScriptで様々な処理をした後ログをはいているのですが、冗長になり悩んでいます。 考えてみたり調べてみたりしましたがいいヒントが見つかりませんでした・・・ http://www.google.com/notebook/public/06577523275749879902/BDRFtDAoQkI-_t-Ej?hl=ja 上記に自分で作ってみたログファイル作成のプログラムで一部抜粋になりますがこういった構成です。 _Subプロシージャで処理成功時に呼び出し ＿＿フォルダ有り ＿＿＿＿ログ有り ＿＿＿＿ログ無い ＿＿フォルダ無い ＿＿＿＿ログ有り ＿＿＿＿ログ無い _Subプロシージャで処理失敗時に呼び出し ＿＿フォルダ有り ＿＿＿＿ログ有り ＿＿＿＿ログ無い ＿＿フォルダ無い ＿＿＿＿ログ有り ＿＿＿＿ログ無い これだけ長いと・・・・みっともないですよね 自分としては ・通常ログとエラーログを分けて出したい ・処理中に止まる可能性がある箇所がいくつかあるので処理が止まった時点でエラーメッセージを変えたい ・もっと簡潔にしたい この３つがあります。 どなたかいいヒントをいただけないでしょうか？ Mon, 08 Dec 2008 23:42:02 +0900 http://knowledge.livedoor.com/37785 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Thu, 18 Dec 2008 23:38:39 +0900 http://knowledge.livedoor.com/37784 VBScriptでフレームの名前を取得しようとすると下のようなエラーが出て困っています。 色々調べたのですがどう対策したらよいかわかりません・・・ :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: エラー: アクセスが拒否されました。 コード: 80070005 ソース: (null) :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: Option Explicit Dim URL Dim objIE Dim Count Dim TextBody Dim strText Dim FindText FindText = "議長" URL = "http://www.shugiin.go.jp/index.nsf/html/index_kousei.htm" Set objIE = WScript.CreateObject("InternetExplorer.Application") If Err.Number = 0 Then objIE.Navigate URL objIE.Visible = True Do Until objIE.Busy = False WScript.sleep(250) Loop Count = objIE.Document.getElementsByTagName("frame").length Msgbox "対象タグは" & Count & "個" msgbox objIE.Document.frames(0).name msgbox objIE.Document.frames(1).name msgbox objIE.Document.frames(2).name msgbox objIE.Document.frames("f2_main").Document.Body.InnerText msgbox objIE.Document.frames(2).Document.Body.InnerText TextBody = objIE.Document.frames(2).Document.Body.InnerText strText = InStr(1, TextBody, FindText) If strText > 0 Then msgbox "いたいた！" Else msgbox "おーい息子さん探してきてよ" End If Else WScript.Echo " ダメ" & Err.Description End If テスト的に衆議院のページでやってみると出来るのですが・・・ 別ページ（公開は出来なくすみません・・・構成もよくわからないページです）だとどうしてもうまくいきません。 ただし、 Count = objIE.Document.getElementsByTagName("frame").length Msgbox "対象タグは" & Count & "個"でフレームの個数は拾ってくることが出来ます。 どうやら３つで構成されていることはわかりましたが、、、 フレームの名前を拾おうとするとどうしても上記のようなエラーが出ます。 どうしたらよいでしょうか？ Mon, 08 Dec 2008 23:33:19 +0900 http://knowledge.livedoor.com/37784 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Thu, 18 Dec 2008 23:38:59 +0900 http://knowledge.livedoor.com/37766 VBScriptでフォームに値を入れることを繰り返したいのですがどうもうまくいかずに悩んでいます。いい方法を教えて下さい。 指定ページを開いた後に If objIE.Document.URL = strURL Then Set objIN = objIE.Document.getElementByTagName("INPUT") objIN(0).value = ID objIN(1).value = PASSWORD objIN(2).Click Do Until objIE.Busy = False WScript.sleep(250) Loop If objIE.Document.URL <> strAfterLoginPage Then objIN(0).value = ID objIN(1).value = PASSWORD objIN(2).Click Do Until objIE.Busy = False WScript.sleep(250) Loop ElseIf objIE.Document.URL <> strAfterLoginPage Then objIN(0).value = ID objIN(1).value = PASSWORD objIN(2).Click Do Until objIE.Busy = False WScript.sleep(250) Loop ElseIf objIE.Document.URL <> strAfterLoginPage Then objIN(0).value = ID objIN(1).value = PASSWORD objIN(2).Click Do Until objIE.Busy = False WScript.sleep(250) Loop ElseIf objIE.Document.URL <> strAfterLoginPage Then objIN(0).value = ID objIN(1).value = PASSWORD objIN(2).Click Do Until objIE.Busy = False WScript.sleep(250) Loop Else objIE.Document.URL <> strAfterLoginPage Then objIN(0).value = ID objIN(1).value = PASSWORD objIN(2).Click Do Until objIE.Busy = False WScript.sleep(250) Loop End If 以下省略 といったように1回でログインできなかった場合何度か入力するプログラムなのですが最初のElseIfの後のところで「オブジェクトがありません」となってしまいます。 ページも遷移してないのですが何故かオブジェクトがなくなってしまいます。 そういった対策をすればよいのでしょうか？ お願いします。 Sun, 07 Dec 2008 02:14:38 +0900 http://knowledge.livedoor.com/37766 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Mon, 08 Dec 2008 23:36:02 +0900 http://knowledge.livedoor.com/37765 VBScriptでIEを探す処理をして指定したサイトがあれば処理を終了させたいのですがうまくいきません。どなたかいい方法を教えていただけないでしょうか？ Dim ObjIE Dim ObjShell Dim ObjWindow Dim WinExist Dim strURL strURL = "http://www.yahoo.co.jp" WinExist = False Set ObjShell = CreateObject("Shell.Application") For Each ObjWindow In ObjShell.Windows If TypeName(ObjWindow.Document) = "HTMLDocument" Then WinExist = True Set ObjIE = ObjWindow End If MsgBox ObjIE.LocationURL If ObjIE.LocationURL <> strURL msgbox "開いてない" Call SHORI_strat() Else msgbox "開いている" Call WriteEndLog() End If Next ・ ・ ・ ・ もしヤフーのサイトが開いていなければ色々処理を行い、開いていればログに既に開いていることをログに書いて終了させたいのですがデスクトップにいろんなページを開いてあった場合繰り返してしまいなかなか終わりません。 あまり賢いやり方ではないと思うのでいい方法に直したいです。 １．最初にヤフーがあるかどうかをまず調べる。 ２．開いていなければ処理を行い終わった時点で全て終了。 ３．もし開いていればログを書いて終了としたいのです。 今は無駄に繰り絵してしまっているのでいい方法は無いですか？ Sun, 07 Dec 2008 02:09:16 +0900 http://knowledge.livedoor.com/37765 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Wed, 07 Jan 2009 06:10:04 +0900 http://knowledge.livedoor.com/37712 VBScriptでBODY部のHTMLソースを取得したいのですが出来ない場合があって悩んでいます。 msgbox objIE.Document.Body.InnerTextというかたちで表示させています。 ほとんどのページで問題なく出来るのですが・・・・ フレームで出来ているページに関して取得が出来ません。 そういった場合どうすればよいのでしょうか？ 極論を言えば指定HTMLソースの中に文字検索が出来れば問題はないのですがソースが取得できないので検索しようがありません。 Wed, 03 Dec 2008 23:25:52 +0900 http://knowledge.livedoor.com/37712 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Mon, 08 Dec 2008 23:36:35 +0900 http://knowledge.livedoor.com/37710 VBScriptのSubとEnd Subについて教えて下さい。 下記のようなプログラムはうまくいくのですがSubで囲むと何故か動作しなくなってしまいます。 使い方が間違っているのでしょうか？ Dim LogonID Dim Password Dim URL Dim objIE Dim objINPUT Dim BodyText Dim AriNashi LogonID = "XXXXXXXX" Password = "XXXXXXXXX" URL = "https://login.yahoo.co.jp/config/login?.src=www&.done=http://www.ya..." Set objIE = WScript.CreateObject("InternetExplorer.Application") objIE.Navigate URL objIE.Visible = True Do Until objIE.Busy = False WScript.sleep(250) Loop If objIE.document.URL = URL Then BodyText = objIE.document.body.innerTEXT AriNashi = InStr(1, BodyText, "Yahoo") If AriNashi > 0 Then Set objINPUT = objIE.document.getElementsByTagName("input") objINPUT(0).value = LoginID objINPUT(1).value = Password objINPUT(2).Click Else msgbox "NO" End If Else WScript.Echo " ダ メ" & Err.Description End If Set objIE = Nothing Wed, 03 Dec 2008 23:14:17 +0900 http://knowledge.livedoor.com/37710 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Mon, 08 Dec 2008 23:37:00 +0900 http://knowledge.livedoor.com/37708 VBScriptで自動的にサイトログインを行うプログラムを作っています。ログイン時にエラーがあった場合の処理対策を考えていますがどうしようか悩んでいます。 Dim LogonID Dim Password Dim URL Dim objIE Dim objINPUT Dim BodyText Dim AriNashi LogonID = "XXXXXXXX" Password = "XXXXXXXXX" URL = "https://login.yahoo.co.jp/config/login?.src=www&.done=http://www.ya..." Set objIE = WScript.CreateObject("InternetExplorer.Application") objIE.Navigate URL objIE.Visible = True Do Until objIE.Busy = False WScript.sleep(250) Loop If objIE.document.URL = URL Then BodyText = objIE.document.body.innerTEXT AriNashi = InStr(1, BodyText, "Yahoo") If AriNashi > 0 Then Set objINPUT = objIE.document.getElementsByTagName("input") objINPUT(0).value = LoginID objINPUT(1).value = Password objINPUT(2).Click Else '??????????????????????????????????????????????????? '??????????????????????????????????????????????????? '??????????????????????????????????????????????????? End If Else WScript.Echo " ダ メ" & Err.Description End If Set objIE = Nothing ※タグは適当になっています。 手作業でログインするときフォームにLoginIDとPasswordを入れてクリックしたとき何らかのサーバーエラーでエラー表示になる場合と５回クリックしたときにエラーページが表示される場合があります。 そういった場合の対策はどうしたらよいでしょうか？ Wed, 03 Dec 2008 23:08:03 +0900 http://knowledge.livedoor.com/37708 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Sun, 07 Dec 2008 02:04:01 +0900 http://knowledge.livedoor.com/37669 VBスクリプトのオートログインで成功、失敗に関わらずログを出したいのですがいい方法はないでしょうか？ Set objLogin = objIE.Document.getElementsByTagName("INPUT") objLogin(0).value = ID objLogin(1).value = PASSWORD objLogin(2).click サイトにログインの可否をログに残したいのですが、どこでログの作成を入れたらよいのでしょうか？ ログを新規に作るとき月ごとにファイルを作るかと思います。 ログファイルを探す？方法はどうしたらよいでしょうか？ スクリプトを起動した瞬間に起動時間をいれログインできた時点でOKなり失敗した時点でNG入れるなんなりがあると思いますが・・・ どのようにすればよいでしょうか？ 一応下記を参考にしていますが・・・ ??http://www.happy2-island.com/vbs/cafe02/capter00204.shtml?? Sun, 30 Nov 2008 23:46:12 +0900 http://knowledge.livedoor.com/37669 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 Wed, 31 Dec 2008 06:10:05 +0900 http://knowledge.livedoor.com/37668 VBSでとある条件の時に処理をやらずに終了させる方法で悩んでいます。 Dim ObjIE Dim ObjShell Dim ObjWindow Dim WinExist WinExist = False Set ObjShell = CreateObject("Shell.Application") For Each ObjWindow In ObjShell.Windows If TypeName(ObjWindow.Document) = "HTMLDocument" Then WinExist = True Set ObjIE = ObjWindow End If Next Set ObjShell = Nothing If Not WinExist = True Then Set ObjIE = CreateObject("InternetExplorer.Application") End If ・ ・ ・ ・ 例えばこのように起動しているIEを探します そこでもしYahoo！JAPANが起動していたら以降の処理をやらずに終わらせたいのですが・・・ どのような記述にすればよいでしょうか？ Sun, 30 Nov 2008 23:40:09 +0900 http://knowledge.livedoor.com/37668 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Sun, 07 Dec 2008 02:03:13 +0900 http://knowledge.livedoor.com/37301 VBscriptをつかってHTA上で実行した結果をHTMLへ動的に表示させたいのですがうまく出来ずに悩んでおります。 一応VBの部分はちゃんと出来ていることは確認していますが表示が全くダメです。 どなたか教えて下さい。 Option Explicit Dim objAccess Dim objDB Dim objRS Set objAccess = CreateObject("Access.Application") objAccess.Visible = True objAccess.OpenCurrentDatabase("c:\happy\island.mdb") Set objDB = objAccess.CurrentDb Set objRS = objDB.OpenRecordset("SELECT COUNT(*) AS 件 FROM 住所録テーブル") WScript.echo "件数=" & objRS("件数") objRS.Close Set objRS = Nothing Set objDB = Nothing Set objAccess = Nothing 件数をWScript.echoではなくinnerhtmlで表示したいです。 またSQLを("SELECT * FROM 住所録テーブル")にした場合データをレコードセットで抽出し必要なデータを表にして表示をしたいのですが・・・（これもinnerhtmlを使いたい） Fri, 07 Nov 2008 00:36:09 +0900 http://knowledge.livedoor.com/37301 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Wed, 03 Dec 2008 23:06:20 +0900 http://knowledge.livedoor.com/36518 ユーザープロファイルがアンロード出来ない的なエラーがイベントビューアに出ています。 Remote Desk TopでログアウトするときとかADで整合を図っている時間帯にERRORが出ているようです。 イベントビューアで見ても何のプログラムが引き金で発生しているERRORなのかさっぱりわからないWindowsの不親切さがあるのですが・・・ どうやって原因のプログラムを見つけたらよいでしょうか？ ツールキットの存在は知っていますが、出来れば余計なものをインストールしたくないので・・・考えていません。 どうかよろしくお願いします。 Mon, 29 Sep 2008 00:44:12 +0900 http://knowledge.livedoor.com/36518 mr_r00 Windows 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Thu, 30 Oct 2008 06:10:10 +0900 http://knowledge.livedoor.com/36198 VBscriptでのコマンド発行　ver.2 一応出来たものです。 どんな感じでしょうか？ でもこれで出来るんですけどやたらPC重くなりエクスプローラで「応答なし」になるんですよね・・・ なんでだろ？？？ あとFor～Next　とSleepってこんなんで大丈夫ですか？ Option Explicit On Error Resume Next Dim objWshShell Dim strCmdLine For i = 1 to 15 Set objWshShell = WScript.CreateObject("WScript.Shell") If Err.Number = 0 Then strCmdLine = "cmd.exe /c (cd /d D:\TEST\PDSQL\) & (pdsql.exe <D:\TEST\" & " & Right("000" & CStr(i), 4)" & ".txt)" objWshShell.Exec(strCmdLine) WScript.Sleep(300000) Next If Err.Number = 0 Then WScript.Echo strCmdLine & " を起動しました。" Else WScript.Echo "エラー: " & Err.Description End If Else WScript.Echo "エラー: " & Err.Description End If Set objWshShell = Nothing Tue, 09 Sep 2008 23:44:46 +0900 http://knowledge.livedoor.com/36198 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 Fri, 10 Oct 2008 06:10:08 +0900 http://knowledge.livedoor.com/36122#answer100424 まずいでしょうね・・・ 詳しい製法まではわからないですけどネーミングも味もまずいんじゃないかな？？？ やっぱそんなことより炊く直前まで籾だとか糠がついていたようなお米が一番おいしいんじゃないかな？とよく思いますね。 私みたいな農家を営んでるものにしてみたらですけど・・・ Sat, 06 Sep 2008 10:05:49 +0900 http://knowledge.livedoor.com/36122#answer100424 じいじ その他 28088 http://knowledge.livedoor.com/profile/28088 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif http://knowledge.livedoor.com/36085 HiRDBのEXECUTORについて知っていたら教えてください。 コマンドラインからSQLを発行したいのですがどうしてもうまく出来ません。 直接入力してコマンドライン上からは発行は出来ますがテキストに書いたものを 発行出来ません。 説明書を見たとおりにしてますが… DBに接続して pdsql < D:\chiechie_yahhooha\dameningen.txt といった感じにやればいいかと思っておりましたが… 何か違うでしょうか？ Wed, 03 Sep 2008 23:16:10 +0900 http://knowledge.livedoor.com/36085 mr_r00 データベース 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 Sat, 04 Oct 2008 06:10:13 +0900 http://knowledge.livedoor.com/36084 VBscriptでコマンドプロンプトを起動させテキストを発行させることで悩んでおります。 コマンドラインのツールを実行させそこへテキストに記述された内容を実行させたいと思っています。 Dim strCOM For i = 1 to 15 strCOM = "cmd /C C:\○○○○\△△△△.exe 'ここがわかりません 'テキストファイルを流したいのですが・・・・ 'コマンド名を仮に＠＠＠＠とします。 "＠＠＠＠ D:\HEPPOKO" & Right("000" & CStr(i), 4) & ".txt" 'をコマンドライン上に流したいのですが・・・ Set WshShell = CreateObject("WScript.Shell") Set oExec = WshShell.Exec(strCOM) FileCopy "D:\HEPPOKO" & Right("000" & CStr(i), 4) & ".txt", "D:\終了\HEPPOKO" & Right("000" & CStr(i), 4) & ".txt" 'ここにSleep関数？で5分後とカウントアップにしたいのですが調べてみてもちょっと検討がつかなかったので・・・ '教えていただけないでしょうか？ Next Wed, 03 Sep 2008 23:05:33 +0900 http://knowledge.livedoor.com/36084 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Sat, 04 Oct 2008 06:10:12 +0900 http://knowledge.livedoor.com/36065 VBscriptでうまいことテキストにあるコマンドを発行できません。 文が全然違う気がしてきて・・・・ Dim strCOM For i = 1 to 15 strCOM = "cmd /C cd /d D:\HEPPOKO & Format("0000", i) & .txt" Set WshShell = CreateObject("WScript.Shell") Set oExec = WshShell.Exec("strCOM ") DドライブにあるHEPPOKO0001.txt～HEPPOKO0015.txtを順次展開したいのですが・・・ どなたかご指示ください。 Tue, 02 Sep 2008 22:38:35 +0900 http://knowledge.livedoor.com/36065 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Fri, 12 Sep 2008 06:54:25 +0900 http://knowledge.livedoor.com/36047 Windows2000鯖のイベントエラーについて困っていることがあります。 イベントエラーで イベント ソース: Userenv イベント カテゴリ: なし イベント ID: 1000 ユーザー: NT AUTHORITY\SYSTEM 説明: ユーザーまたはコンピュータ名を判断できません。戻り値は (1326) です。 と出ています。 ターミナル サービスマネージャーで見るとリモートデスクトップで入っている あるアカウントのセッションが繋がったままでしたが繋がったままアカウントの パスワードを変更してしまったみたいです。 それが原因でADと整合性が取れずエラー発生となっていると思うのですが… そのエラーが出始めた時間から発生しているのでアカウントのパスワードを変更 したのが原因だと思います…私がセッションを切断してもまだエラーが出続けて います。 確認する場所が違っているのでしょうか？ 分かる人いたら教えてください。 スンマソン… Mon, 01 Sep 2008 22:39:05 +0900 http://knowledge.livedoor.com/36047 mr_r00 Windows 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Wed, 03 Sep 2008 23:16:59 +0900 http://knowledge.livedoor.com/35208 SQLでの副問い合わせ（サブクエリ）について教えて下さい。自分の出したい結果が思うように得られず悩んでおります。 結果を得たものをCSVに落としたいわけですが”見え方”ヴィジュアル面に問題があります。 欲しい結果をそれぞれSQLにしますと ≪受注表テーブルから≫ SELECT 担当, 顧客コード FROM 受注表 WHERE 担当 = '田中' AND 商品コード = 'A1' AND 顧客コード = '003' ; SELECT 担当, 顧客コード FROM 受注表 WHERE 担当 = '田中' AND 商品コード = 'A1' AND 顧客コード = '020' ; ≪入荷表テーブルから≫ SELECT 担当, 入荷日 FROM 入荷表 WHERE 担当 = '田中' AND 入荷コード = 'X013' AND 入荷日 = '20080701' ; SELECT 担当, 入荷日 FROM 入荷表 WHERE 担当 = '田中' AND 入荷コード = 'X123' AND 入荷日 = '20080630' ; ≪欲しい結果の見え方≫ 担当 顧客コード 担当 顧客コード 担当 入荷日 担当 入荷日 ── ───── ── ───── ── ─── ── ───── 田中 003 田中 020 田中 20080701 田中 20080630 田中 003 田中 020 田中 20080701 田中 20080630 このように関係のないレコードを横並びにするにはどうしたらよいでしょうか？ 使っているDBはOracle10、SQL server、MySQL、HiRDBそれぞれで実行したいのですが・・・ どなたかご教示ください。 Sun, 13 Jul 2008 01:43:42 +0900 http://knowledge.livedoor.com/35208 mr_r00 データベース 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Thu, 17 Jul 2008 21:59:53 +0900 http://knowledge.livedoor.com/34209 シートコピーのVBAでもっと早くならないか考えております。どなたか見てください Private Sub ShtCopy1(土井シート, yr) Shtname1 = 土井シート.Name & yr 'あれば作らない For Each Sht1 In Worksheets If Sht1.Name = Shtname1 Then Exit Sub Next '無ければ作る 土井シート.Copy Before:=土井シート ActiveSheet.Name = Shtname1 End Sub Private Sub ShtCopy2(井戸シート, yr) Shtname2 = 井戸シート.Name & yr 'あれば作らない For Each Sht2 In Worksheets If Sht2.Name = Shtname2 Then Exit Sub Next '無ければ作る 井戸シート.Copy Before:=井戸シート ActiveSheet.Name = Shtname2 End Sub Sub シート作成() Set Org土井 = Worksheets("土井") Call ShtCopy1(Org土井, Year(Date) - 2) Call ShtCopy1(Org土井, Year(Date) - 1) Call ShtCopy1(Org土井, Year(Date)) Call ShtCopy1(Org土井, Year(Date) + 1) Set Org井戸 = Worksheets("井戸") Call ShtCopy2(Org井戸, Year(Date) - 2) Call ShtCopy2(Org井戸, Year(Date) - 1) Call ShtCopy2(Org井戸, Year(Date)) Call ShtCopy2(Org井戸, Year(Date) + 1) '不要シートの削除 For Each Sht1 In Worksheets If Sht1.Name = ("土井") & (Year(Date) - 3) Then Application.DisplayAlerts = False Sht1.Delete Application.DisplayAlerts = True End If Next For Each Sht2 In Worksheets If Sht2.Name = ("井戸") & (Year(Date) - 3) Then Application.DisplayAlerts = False Sht2.Delete Application.DisplayAlerts = True End If Next Sun, 18 May 2008 21:05:54 +0900 http://knowledge.livedoor.com/34209 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Wed, 18 Jun 2008 06:10:07 +0900 http://knowledge.livedoor.com/34152 サーバーの運用保守でエラーメッセージがあるのに原因がつかめないときどうすればよいでしょうか？ 周りに聞いても全然わからないこともあり困っているのですが…こういうサイトで書き込んで調べるのも手かとも思いますが書き込んだのが私だとわかる恐れがあって嫌です(検索で出そうなので…)多少お金がかかってもいいのでメールのやりとりとかでサーバーについて教えてくれるところありませんか？ Fri, 16 May 2008 00:37:50 +0900 http://knowledge.livedoor.com/34152 mr_r00 Windows 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 Mon, 16 Jun 2008 06:10:05 +0900 http://knowledge.livedoor.com/34075 Excelのシート上でアクティブセルを色付けする方法で悩んでおります。 以前は教えていただき有難うございました。 http://knowledge.livedoor.com/33038 これを応用してなのですがシートに１年分のカレンダー（自宅にある壁掛けカレンダーのような形式で）が入力されているとします。 1月1日に開くと１に色がついている状態にしたいのです。 また、それを自由に動かしてアクティブセルに色をつけれたらうれしいです。 こんなのは出来ますでしょうか？ Sun, 11 May 2008 08:00:03 +0900 http://knowledge.livedoor.com/34075 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Wed, 11 Jun 2008 06:10:04 +0900 http://knowledge.livedoor.com/33867 夜の話でちょっと恥ずかしいお話なのですがあまり聞ける人がいないので教えて下さい。 妻と夜の生活をしっかり楽しんでいますが、１回目の射精が終わって１時間くらい経って２回目などよくします。 そうすると勃起したときに陰茎の中心から締め付けあげられる痛みがあったり挿入時感覚が敏感なのか刺激を感じすぎて耐えれません。 皆さんも同じなのでしょうか？ ずっと昔から自慰行為を始めた頃から連続で射精を行うとこういった感覚になるのはしっているので病気だとは思いませんが、すぐに回復してもっと性生活を楽しめたらよいのですが・・・・ Tue, 29 Apr 2008 13:43:07 +0900 http://knowledge.livedoor.com/33867 mr_r00 アダルト 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 3 Sun, 11 May 2008 07:48:39 +0900 http://knowledge.livedoor.com/33866 夜の話でちょっと恥ずかしいお話なのですがあまり聞ける人がいないので教えて下さい。 妻と夜の生活をしっかり楽しんでいますが、１回目の射精が終わって１時間くらい経って２回目などよくします。 そうすると勃起したときに陰茎の中心から締め付けあげられる痛みがあったり挿入時感覚が敏感なのか刺激を感じすぎて耐えれません。 皆さんも同じなのでしょうか？ ずっと昔から自慰行為を始めた頃から連続で射精を行うとこういった感覚になるのはしっているので病気だとは思いませんが、すぐに回復してもっと性生活を楽しめたらよいのですが・・・・ Tue, 29 Apr 2008 13:42:59 +0900 http://knowledge.livedoor.com/33866 mr_r00 アダルト 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 3 Sun, 11 May 2008 07:49:34 +0900 http://knowledge.livedoor.com/33854#answer94860 福田”超能天気”首相に一票 Tue, 29 Apr 2008 12:22:58 +0900 http://knowledge.livedoor.com/33854#answer94860 ２０世紀少年 時事・ニュース 26343 http://knowledge.livedoor.com/profile/26343 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif http://knowledge.livedoor.com/33861#answer94859 うん！そうだ 開き直り政治はやめてほしい ついでに２世禁止法でも出来ないのかな（笑） ボンクラどもが政治をやるなら町のおばちゃんに政治を任せたくなる気分だよ Tue, 29 Apr 2008 12:22:03 +0900 http://knowledge.livedoor.com/33861#answer94859 社会＆文化 21505 http://knowledge.livedoor.com/profile/21505 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif http://knowledge.livedoor.com/33862 デフオイルについて詳しい方お願いします。 中古で車を買ったのですがそろそろデフオイルを替えてやりたいと思いますが銘柄不明なデフがついています アクセルオン時のみロ ックするので1wayと思っています。どのくらいの固さがよいでしょうか？愛車は１８０の中期型です Tue, 29 Apr 2008 12:02:02 +0900 http://knowledge.livedoor.com/33862 mr_r00 メンテナンス 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 Fri, 30 May 2008 06:10:07 +0900 http://knowledge.livedoor.com/33664 VBAでアクティブセルを日付の位置に動かしたいと思っています。 1枚のシートに1年分の壁掛けカレンダーのようなものを作成してあります。 例： ２００７ ４ １　　２　　３　　４　　５　　６　　７ ８　　９　　10　　11　　12　　13　　14 15　　16　　17　　18　　19　　20　　21 22　　23　　24　　25　　26　　27　　28 29　　30 こうやって年月日がバラバラになっているのですが今日の日付の部分のセルを アクティブにすることは可能なのでしょうか？ Sat, 19 Apr 2008 15:36:04 +0900 http://knowledge.livedoor.com/33664 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 2 Tue, 29 Apr 2008 12:25:48 +0900 http://knowledge.livedoor.com/33662 VBAでシートコピー時に時間がやたらと時間がかかるようになってしまいました。 http://knowledge.livedoor.com/33535でお世話になってこの問題点について解決しましたがシートのコピーが2倍くらいになってしまいました。 このやり方は変えたくないのですがシートコピーの時間の短縮を図りたいです。 現在自動再計算や画面更新は停止してはあります。 Sat, 19 Apr 2008 15:25:44 +0900 http://knowledge.livedoor.com/33662 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Tue, 29 Apr 2008 12:25:22 +0900 http://knowledge.livedoor.com/33661#answer94467 私ならまず親にキレますけど・・・こういったことは深いので警察や弁護士にご相談されるのが良いのではないのでしょうか？ 寄付という名目で騙し取っていたのであれば詐欺です。あなたがまず親を問い詰めていただいて詐欺と判断できるのであれば被害届けを出した方がいいでしょう。早い処置が必要に思われます。 Sat, 19 Apr 2008 15:22:25 +0900 http://knowledge.livedoor.com/33661#answer94467 amafumi 人生相談 26339 http://knowledge.livedoor.com/profile/26339 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif http://knowledge.livedoor.com/33535 VBAでシートコピー時の使い勝手で悩んでします。 営業で販売実績などに関わる資料をVBAで作成しのですが、わかりづらいので修正したいためアドバイスなどいただけないでしょうか。 まずどんなものを作成したかといいますと四半期ごとにある販売実績報告会議での資料作成用Bookです。 ●シートのトップはただのシート作成ボタンがあるページです。 （実績作成TOP）という名のシート ●シート2枚目は各ページにいけるように目次のページです。 （シート選択）という名のシート ●シート3枚目は実績入力の”テンプレート”です。 （実績入力）という名のシート ●シート4枚目は上司提出用の”テンプレート”です。 （実績報告）という名のシート 使い方として例えば今月4月に「実績作成TOP」にあるコマンドボタンを押すこ とで「シート選択」に「200801実績入力」「200802実績入力」「200803実績入 力」「200801実績報告」「200802実績報告」」「200803実績報告」のハイパー リンクを作成します。 それと同時に上記の名前のシートをテンプレートよりコピーをし名前を振りま す。 その後入力の使い方として1月のもので説明しますと「200801実績入力」でデ ータを入力した後シート上に”決定”ボタンを押します。そうするとシートに ロックがかかり編集できないようにします。それと同時に「シート選択」に遷 移させます。その後「200801実績報告」を作成するのですが、こちらは各人で リンクで飛んでもらうという風にしています。 ここに使用者から改善してもらえないかというお話をいただきました。 今は作業工程として 「実績作成TOP」→「シート選択」→「200801実績入力」→「シート選択」→ 「200801実績報告」としないとひとつきの作業を終えれないのですが、 「実績作成TOP」→「シート選択」→「200801実績入力」→「200801実績報告 」としてほしいとのことです。 最初の段階で私もそうしたかったのですがどうしてもわからず「シート選択を 」作るで回避してしまったのですがどうしても不満が出てしまいました。 テンプレートに最初からハイパーリンクを埋め込んでもシートに飛べないしというところで問題もあります。 もし作るとしたらシートをコピーすると同時に」→「200801実績入力」→「200801実績報告」へのハイパーリンクを書くということになると思うのですが同時にできるかわからずじまいでした Sat, 12 Apr 2008 12:12:29 +0900 http://knowledge.livedoor.com/33535 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 2 Sat, 19 Apr 2008 15:23:16 +0900 http://knowledge.livedoor.com/33434 Excelで値を返したときの条件付書式を考えていますのでご存知の方お願いします。 B6に以下の様な数式が入っていたとします。 = IF(B$6>=WEEKDAY(DATE($B$2,$B$3,1)),B$6-WEEKDAY(DATE($B$2,$B$3,1))+1,"" ) これで返した値が１以下だったばあいC6の表示を消したいと思っています。 そういった場合はどうしたらよいのでしょうか？ Wed, 09 Apr 2008 00:25:35 +0900 http://knowledge.livedoor.com/33434 mr_r00 オフィスソフト 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Wed, 09 Apr 2008 21:47:52 +0900 http://knowledge.livedoor.com/33427 条件付書式でうまくできないのでご存知の方ご教示いただけないでしょうか？ 単なる家庭用壁掛けカレンダーのようなものですが下記サイトのものを参考に手を加え使っています。 引用したものはただの万年カレンダーですが私のは日付の下のセルを作り予定や数式など入れております。 このカレンダーの２月２９日とあと毎月１日が日曜から始まるわけではないので月によっては１日より前の「予定や数式」を消さなければなりません。 ２月２９日がない西暦であれば「＜２９」を使って消せますが４年に１回はこれが使えません。 あと１日以前は返り血が１以下であればというのもやってみましたがダメでした。。。 どなたか助けてください お願いします。 ??http://www.atmarkit.co.jp/fwin2k/win2ktips/291autoclndr/autoclndr.html?? Tue, 08 Apr 2008 22:59:27 +0900 http://knowledge.livedoor.com/33427 mr_r00 オフィスソフト 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Wed, 09 Apr 2008 21:48:17 +0900 http://knowledge.livedoor.com/33382 VBAでシートのコピーをしておりますが再計算が重く回避したのですがその後の計算をどうしようか悩んでいますのでどなたかご教示ください。 数式などはいったシートのコピーは重いので計算をしないようにコピーで回避 はしています。 そこで自動計算はしてくれなくなるのでシートを使いたいとき「F9」を押すか 「ツール→オプション」で再計算させるわけですが”そういうこと”を知らな いユーザーが使うこともあることを考えどこかで自動計算を一時的に使えるよ うにすべきかなと考えてはおります。 初心者が「使いやすい」ということを考えたとき皆さんはどんな処理をするこ とを考えますか？ボキャブラリがどうしても足りないので皆さんの意見や経験 をヒントにしたいと思っていますのでお願いします。 条件は、 １．数式入りシートを何枚もコピーしている ２．ユーザーが特に計算の操作をしないで済む ３．使うシートだけ計算させればよいかもしれない（アクティブシート？） ４．シートは印刷したいので極力ボタンの表示などは避けたい ５．コマンドぼっくすは見栄えが良くないので避けたい Mon, 07 Apr 2008 23:06:41 +0900 http://knowledge.livedoor.com/33382 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Sat, 12 Apr 2008 11:02:44 +0900 http://knowledge.livedoor.com/33352 シートコピーで失敗をしています。どうかご教示いただけないでしょうか？ 説明を箇条書きにさせていただきます。 ・シート名は西暦からの取得・2年分作る ・去年のシートは自動削除・シートが削除されるまで何故かシートを作ってくれない。 このマクロを起動するとシートを望んだとおり変数入りシートをコピーしてくれますがシステム日付を1年増やすと何故か作ってくれなくなっていしまいます。 Sub copySheet() Dim sheetNY As Worksheet Dim sheetTY As Worksheet 　 Dim SNameNY As String Dim SNameTY As String Dim rainen As Integer Dim kotoshi As Integer Dim Found As Boolean Found = False rainen = Year(Date) + 1 kotoshi = Year(Date) '来年用シート作成 SNameNY = "土井" & rainen For Each SheetNY In Worksheets If SheetNY.Name = SNameNY Then Found = True Exit For End If Next If Found = False Then Set SheetNY = Worksheets("土井") SheetNY.Copy Before:=SheetNY ActiveSheet.Name = SNameNY End If '今年用シート作成 SNameTY = "土井" & kotoshi For Each SheetTY In Worksheets If SheetTY.Name = SNameTY Then Found = True Exit For End If Next If Found = False Then Set SheetTY = Worksheets("土井") SheetTY.Copy Before:=SheetTY ActiveSheet.Name = SNameTY End If '去年のシート削除 Dim Sheet3 As Worksheet Dim SName3 As String Dim kyonen As Integer kyonen = Year(Date) - 1 SName3 = ("土井" & kyonen) Application.DisplayAlerts = False For Each Sheet3 In Worksheets If InStr(Sheet3.Name, SName3) <> 0 Then Sheet3.Delete End If Next Sun, 06 Apr 2008 22:48:38 +0900 http://knowledge.livedoor.com/33352 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Mon, 07 Apr 2008 23:07:26 +0900 http://knowledge.livedoor.com/33272#answer93758 完全な悪・諸悪の根源とはいえないと思います。 ただ、民主主義採用でありながら日本を牛耳ってきたのは罪だと考えるのが妥当だと思います。 日本の発展を望むのであればある程度の政権交代が必要です。 ねぇ？小泉さん？自民党をぶっ壊す前に日本壊滅させる方向にもっていってどうすんの？あんた死刑物だよ　と言いたいですが・・・・ Thu, 03 Apr 2008 22:35:46 +0900 http://knowledge.livedoor.com/33272#answer93758 the　jumbuck 法律 26051 http://knowledge.livedoor.com/profile/26051 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif http://knowledge.livedoor.com/33237 VBAである規則性があるコードがあるのですがうまく出来ません。どなたかお願いします。 Worksheet("test" & TY).Cells(1, 6).name ="DD" & TY & "0101" Worksheet("test" & TY).Cells(2, 6).name ="DD" & TY & "0102" Worksheet("test" & TY).Cells(3, 6).name ="DD" & TY & "0103" Worksheet("test" & TY).Cells(4, 6).name ="DD" & TY & "0104" Worksheet("test" & TY).Cells(5, 6).name ="DD" & TY & "0105" 最後の0101とかは日付に近い形にしたいのですがここをどうスマートなコーディングをしたらいいか迷っています。 フォーマットの関係で出来るだけ日付型は避けたいです。連続でセルに名前をふりたいのでお願いします。 Thu, 03 Apr 2008 01:00:51 +0900 http://knowledge.livedoor.com/33237 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 2 Thu, 03 Apr 2008 22:40:38 +0900 http://knowledge.livedoor.com/33127 条件付書式で悩みがあります。カレンダーを作っていますが今日の日付に該当した場合そのセルを指定したいのですがうまくいきません。 下記のサイトにあるカレンダーをベースに万年カレンダーを作っております。 http://www.atmarkit.co.jp/fwin2k/win2ktips/291autoclndr/autoclndr.html 先日教わった（回答してくださった皆様有難うございます。　http://knowledge.livedoor.com/33038）セルの一時的配色を用いて条件付書式で=DATE($B$2,$B$3,B7)=TODAY()で何も条件をつけなければセルが該当日に移動しているはずと思うのですが出来ません。なぜでしょうか。。。。 Sun, 30 Mar 2008 12:14:33 +0900 http://knowledge.livedoor.com/33127 mr_r00 オフィスソフト 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 2 Sun, 30 Mar 2008 15:29:19 +0900 http://knowledge.livedoor.com/33038 エクセルでセルを半透明着色処理にする方法はありますでしょうか？ ご存知でしたら教えて下さい。通常Excelのセルを選択したらセルの周りが濃くなるだけかと思うのですがそれを半透明の灰色に変更することは出来ないでしょうか？ またセルにデフォルトで日付が入っていて今日の日付だったらその部分を自動で上記のような処理にすることは可能でしょうか？ Wed, 26 Mar 2008 23:42:52 +0900 http://knowledge.livedoor.com/33038 mr_r00 オフィスソフト 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 3 Thu, 03 Apr 2008 22:37:28 +0900 http://knowledge.livedoor.com/33037 VBAでハイパーリンクを作ることについて教えていただけないでしょうか？ シートの枚数が多いので一枚”目次”的なセルを用意してそこからすぐに目的のセルにいけるようにしたいのですがどうしたらよいでしょうか？ ホームページなどでURLを貼るものを見てためしにやってみたのですがどれもただのコピペなのに何故か実行されませんでした。。。それを改変してみたりしたのですが結局うまくいかず悩んでいます。 どなたかヒントをいただけますでしょうか？お願いします。 Wed, 26 Mar 2008 23:30:24 +0900 http://knowledge.livedoor.com/33037 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Sun, 30 Mar 2008 11:36:55 +0900 http://knowledge.livedoor.com/32981 VBAについて困っています。下記コードで日付の後ろ倒しと前倒しデータの取得のもの作っています。 Dim lastRow As Long Dim firstrow As Long Sub testだよ() Dim i As Long Dim j As Long lastRow = Range("C12").End(xlDown).Row firstrow = Range("C12").End(xlUp).Row '原則26日後に期限 For i = 12 To lastRow Cells(i, 9).Value = DateAdd("d", 26, Cells(i, 3).Value) Next 'が休日の場合 For i = 12 To lastRow If Cells(i, 6).Value = "★" Then Call delay(Cells(i, 3).Value) End If Next For i = 12 To lastRow If Cells(i, 7).Value = "★" Then Call moveup(Cells(i, 3).Value) End If Next End Sub Function delay(dd As Long) Dim i As Long For i = 12 To lastRow If Cells(i, 8).Value = dd Then Cells(i, 8).Value = DateAdd("d", 1, Cells(i, 8).Value) End If Next For i = 12 To lastRow If Cells(i, 10).Value = dd Then Cells(i, 10).Value = DateAdd("d", 1, Cells(i, 10).Value) End If Next For i = 12 To lastRow If Cells(i, 12).Value = dd Then Cells(i, 12).Value = DateAdd("d", 1, Cells(i, 12).Value) End If Next End Function ここからに問題があります。 Function moveup(md As Long) Dim i As Long For i = 12 To lastRow If Cells(i, 9).Value = md Then Cells(i, 9).Value = DateAdd("d", -1, Cells(i, 9).Value) End If Next For i = 12 To lastRow If Cells(i, 11).Value = md Then Cells(i, 11).Value = DateAdd("d", -1, Cells(i, 11).Value) End If Next For i = 12 To lastRow If Cells(i, 13).Value = md Then Cells(i, 13).Value = DateAdd("d", -1, Cells(i, 13).Value) End If Next End Function どうしても複数星が入っていると前倒ししていかないのです。どなたか助けてください。 Mon, 24 Mar 2008 01:52:06 +0900 http://knowledge.livedoor.com/32981 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Sun, 30 Mar 2008 11:35:10 +0900 http://knowledge.livedoor.com/32957 今日だけスカパー特にフジテレビのスポーツを見たいのですがどうしたらよいでしょうか？？？ 今日しかやらない番組のためにスカパーに加入するのはバカバカしいと思う部分もあるのですがどうしても見たい番組がCSでしかやらないので・・・すごく悩んでおります。 友人とかで持っている人はいないし・・・どなたか良い知恵があったら教えて下さい。 Sat, 22 Mar 2008 21:34:21 +0900 http://knowledge.livedoor.com/32957 mr_r00 ＴＶ 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 3 Sun, 30 Mar 2008 11:35:47 +0900 http://knowledge.livedoor.com/32856 auのサービスについて詳しい方いらっしゃったらお願いします。質問は箇条書きで単調に書いてしまいますが申し訳ありません。 ・シンプルプランでも家族割を組んでいれば家族間は無料になる？ ・シンプルプランにするには携帯本体を新機種に買い替えしないとできない？ ・もし買い換えないといけないのであれば値段が高くなりますがネットとかで裏技的に安く買う方法は無いですか？ ショップは正規価格になってしまうので・・・・ 今時auショップに行っても2時間待ちで聞けなくて・・・よろしくお願いします。 Wed, 19 Mar 2008 00:32:06 +0900 http://knowledge.livedoor.com/32856 mr_r00 携帯電話・PHS 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Fri, 21 Mar 2008 00:42:55 +0900 http://knowledge.livedoor.com/32854 VBAでちょっと悩んでいることがあるので教えて下さい。大学の研究データの処理でイレギュラーがあるのでうまくやりたいのですがお願いします。 とある実験結果をエクセルで保存しているのですがデータが「超大量」のため効率的に処理したいのですが・・・ まず基本的に実験したら５日後にデータを回収しています。データを入力するに当たって一部自動化したいことが念頭にあります。データ処理の例として： ・A1セルからG1セルまで研究データ処理開始日の日付「2008/3/1～7」が既存で入ってます。 ・A3セルからG3セルまでは5日後の日付が入るようにしたいです。 ・基本は5日で終わるのですが中には前後２，３日くらいずれるものがあります。その結果が肝心なのでしっかり記録したいのです。 ・A2セルからG3セルは研究処理失敗記録用です。 例えば＊2008/3/1に始め2008/3/6に終わるところエラーが出たのでF2セルへはイレギュラーの「E」かチェッカーボックス（なんか横に文字が入るから好きじゃないけど）を入れます。 そうするとA3セルでは2008/3/7が出るようにしたいのですが分岐がうまくわかりません・・・・ あとソースを下記に書きましたが日付の横に曜日がうまくつきません 確かこういうweekday関数で大丈夫と思ったはずですが何故か？？？申し訳ありませんがどんな方法をとればいいかわかりません。ご指導よろしくお願いします。 Dim vntEnd As Variant Dim vnt5days As Variant Dim vntWeekday As Variant ’もし5日後のセルの下にEが入っていれば日付を一日ずらす？？ ’こんな方法なんかとも思いますが・・・ vntEnd = 5 vnt5days = DateAdd("d", vntEnd, Range("A1")) vntWeekday = WeekDay(vnt5days) Range("A3") = vnt5days & vntWeekday Wed, 19 Mar 2008 00:24:31 +0900 http://knowledge.livedoor.com/32854 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 2 Sat, 22 Mar 2008 21:27:46 +0900 http://knowledge.livedoor.com/32827 VBAの処理でボタン＆リンクを作るにはどうすればよいのでしょうか？ 3月3日にシート１にあるボタンを押したときにシート２のA1に3月1日の 日付が入ったボタン、B1に3月2日の日付が入ったボタン・・・・E1に3月5日の 日付が入ったボタンを作ります。 また同時に3月1日から5日までのシートも作ります。 その処理が終わったらシート２で日付のボタンを押せばそれぞれのシートへ飛べるようリンクを入れたいのです。 そして翌日（３月４日）シート１のボタンを押すと3月1日のボタンとシートは 削除されシート２はA1に3月2日のボタンB1に3月3日のボタン・・・・E1に3月6 日のボタンというように位置を移動させます。 もちろんそれぞれの日付のシートの中身は保持したままでです。 このような技術は難解すぎますでしょうか？ ご提示いただけたらうれしいです。 Mon, 17 Mar 2008 23:41:29 +0900 http://knowledge.livedoor.com/32827 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 2 Sun, 30 Mar 2008 11:37:22 +0900 http://knowledge.livedoor.com/32825 VBAでWORKDAY関数が使えない場合はどうすればよいでしょうか？ 仕事上の取引先との納品とかの都合上で業務効率化のためにエクセルでいろい ろツール作りをしているのですが困っているので教えて下さい。 日付が縦列に入っているセルがあるのですが西暦、月、日、曜日は全て別々の セルに入っております。（例：セルA1に西暦、セルA2に月、セルA3～A34まで 日、セルB3～B34は曜日） セルC列は空白（後で理由を示します） セルD列には納品日のを表示する７稼働日後の西暦＆月日＆曜日を入れたいで す。 WORKDAY関数を使えばよいかとも思うのですが、取引先にも確認用で配る、社 内でもPCに疎い人がいる、私自身アドインがよくわからないですし上司にむや みやたらに取引先PCにインストールを促すのはよくないということで却下され ています。 良い方法はないでしょうか？ヒントをいただければと思います。 また、セルA1の西暦は別シートのVBA処理から引っ張ってきています。また、 曜日は=TEXT($A$1・・・・"aaa")で得てしまっていますが・・・ 空白C列には商品在庫が確認できた時にOKを入れる欄です。 OKを入れるとD列の納品日が入ればよいです。 皆様よろしくお願いいたします。 Mon, 17 Mar 2008 23:31:03 +0900 http://knowledge.livedoor.com/32825 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 3 Sat, 22 Mar 2008 21:27:08 +0900 http://knowledge.livedoor.com/32731 サーバー保守、管理について質問です。 「プロセス」といったものを保守していらっしゃる方は見ていると思いますが実際どういったものなのでしょうか？ HPのホームページにpdlsだとかいろいろ書いてあったのですがよくわかりません。 概念とかわかる方いらっしゃいましたら教えていただけないでしょうか？ よろしくお願いします。 Fri, 14 Mar 2008 00:13:01 +0900 http://knowledge.livedoor.com/32731 mr_r00 Windows 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Sun, 16 Mar 2008 00:42:39 +0900 http://knowledge.livedoor.com/32730 VBAで質問ですSheet1で コマンドボタンを押すとSheet2のあるセルへコマンドボタンを作成する方法を知りたいのですがどうしたらよいでしょうか？ Fri, 14 Mar 2008 00:07:49 +0900 http://knowledge.livedoor.com/32730 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Sun, 16 Mar 2008 00:42:20 +0900 http://knowledge.livedoor.com/32551 皆さんは言い回しとかうまい口車は持っていますでしょうか？ 私は人に不快感を与えないためにどう言いまわしをしようかということを考えています。 正直にいうことも大切だと考えていますが人によってはうまい口車で言いくるめたりウソをついたほうが傷つけないことが人間付き合いの中でままあると思います。 実際に例を出すと・・・ 私は大学のゼミで10人のグループの中で活動しています。 グループの中でさまざまな課題があり、そこで私は先輩と組んでとある課題に取り組んでいるのですが実際あまり得意な先輩ではないんです。 先輩には結果報告を何回か言いそびれて過去に注意されているのですが（先輩も忙しくせかせかしてるときに話しかけると機嫌がかなり悪くなるため）今回はちょっと違う要素も含んでいます。 今回は教授から私だけに課題をもらいグループ発表の中で取り組み中の旨を皆に伝えますが先輩にもそこで知られてしまうタイミングになります。以前から取り組んでいる課題も平行しながらなので個別に先に言っておくべきとはおもいますが上記のとおりです。 その発表のタイミングでうまく「何で先に言わないんだ！」と思わせないような良い言い方はないでしょうか？ 芸能人でいうと島田紳助氏が言いくるめがうまいようですが人に不快感を与えないために良い方法を教えて下さい。 うまく言葉に出来ない私に原因があることを重々承知はしています・・・・ Wed, 05 Mar 2008 23:55:19 +0900 http://knowledge.livedoor.com/32551 mr_r00 人と人 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 6 Thu, 13 Mar 2008 23:48:30 +0900 http://knowledge.livedoor.com/32530 Excelで質問です。セルに文字を入力すると同時にセルの背景色が変わる方法（マクロ？？）というのはあるのでしょうか？ Tue, 04 Mar 2008 22:37:42 +0900 http://knowledge.livedoor.com/32530 mr_r00 オフィスソフト 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 2 Thu, 13 Mar 2008 23:48:59 +0900 http://knowledge.livedoor.com/32529 XPや2003サーバーなどにある管理ツールで質問です。 アプリケーションが動いていると「開始」という状態になっていると思うのですが何らかの原因で開始になっているのに動いてない場合があるとおもいますが そういった場合再起動前に正常に動いているのか確認する方法は無いのでしょうか？ Tue, 04 Mar 2008 22:25:36 +0900 http://knowledge.livedoor.com/32529 mr_r00 Windows 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Thu, 13 Mar 2008 23:49:26 +0900 http://knowledge.livedoor.com/32526 ノート パソコンの電池が切れてHDDがちょっと変な音がして止まった後普通に一応使えているのですが WINDOWS起動後に変なメッセージが出るようになってしまいました。ご存知でしたら教えて下さい。 Power4 Gear Current system do not support this utility. Program Stop! と ERROR Can't Open ACPI ATK0100 kernel Mode Driver. です。 どんな内容かも調べてもわかりませんでした。 よろしくお願いします。 Tue, 04 Mar 2008 22:13:28 +0900 http://knowledge.livedoor.com/32526 mr_r00 Windows 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 Fri, 04 Apr 2008 06:10:12 +0900 http://knowledge.livedoor.com/32456 マイクロソフト　製品の手に入れ方で質問です。 PCの調子が悪く仕方なくリカバリーをかけました。リカバリーが成功して問題なく使えるようになったのですが・・・ PCにはもともとプリインでExcel2002など入っていたのですが・・・・CDをなくしてしまいました。 ずっと昔にあった97を今使っていますがどうしても会社のPCと同じ環境にしたいので2002には上げたいのですが買うしか方法は無いのでしょうか？ VBAを使う上で変わっている箇所が無ければよいですが私の記憶ではかなり変わっていたように思います。 どなたかいい方法がございましたらお願いします。 Sat, 01 Mar 2008 15:35:10 +0900 http://knowledge.livedoor.com/32456 mr_r00 オフィスソフト 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 2 Thu, 13 Mar 2008 23:51:29 +0900 http://knowledge.livedoor.com/32454 マイクロソフト製品の手に入れ方で質問です。 PCの調子が悪く仕方なくリカバリーをかけました。リカバリーが成功して問題なく使えるようになったのですが・・・ PCにはもともとプリインでExcel2002など入っていたのですが・・・・CDをなくしてしまいました。 ずっと昔にあった97を今使っていますがどうしても会社のPCと同じ環境にしたいので2002には上げたいのですが買うしか方法は無いのでしょうか？ VBAを使う上で変わっている箇所が無ければよいですが私の記憶ではかなり変わっていたように思います。 どなたかいい方法がございましたらお願いします。 Sat, 01 Mar 2008 15:29:10 +0900 http://knowledge.livedoor.com/32454 mr_r00 Windows 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Thu, 13 Mar 2008 23:51:44 +0900 http://knowledge.livedoor.com/32382 CGI Errorとブラウザのエラー表示について質問です。 The specified CGI application misbehaved by not returning a complete set of HTTP headers. と出てしまいます。アクセスカウンタを設置していてブラウザに出るのですがこのエラーはCGIファイルのパス指定間違いが多いとは思うのですがそのほかには何が考えられますでしょうか？ （文間違いであれば小さい文字でどこが間違っている表示が出ると思いますが上記のエラーメッセージしかありません） 簡単なCGI「hello world」的な文字表示はOKなのですが画像を返してこず困っております。 フォルダのアクセス権など関係はありますでしょうか？ もし関係あるのであればアクセス権についても教えていただけないでしょうか？ 環境は2003serverにIIS6.0で使用しております。 Thu, 28 Feb 2008 00:25:01 +0900 http://knowledge.livedoor.com/32382 mr_r00 CGI 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 Sun, 30 Mar 2008 06:10:06 +0900 http://knowledge.livedoor.com/32364 VBスクリプトでファイルを生成するソースを書いたのですがそれをバッチで実行するようにしてありますが 例えばPCが起動していなく実行できなかった場合次回実行時に「もしこの名前のファイルがなかったら先に作るはずだったファイルを作る」といったようなのが欲しいと思っております。 こういうのはプログラムで先にファイル検索をさせて無かったら作るといった感じになるのでしょうか？ ファイル検索をさせるVBSはFileSystemObjectを使う方法になる以外に無いでしょうか？ （ウイルスソフトが反応するため・・・・・） まだこの手の記述方法がわからないのでネットでサンプルを探したのですがなかったのでご存知の方ヒントをいただけないでしょうか？ よろしくお願いします。 例：VBSCRIPTを1月にタスク実行でAAA1.ｔｘｔを作成。 2月にこのタスクを実行したとき先にAAA1.ｔｘｔがあるかを確認してあればAAA2.ｔｘｔを作る。 もし無ければAAA1.ｔｘｔを作る条件を当てはめ作ってからAAA2.ｔｘｔを作る。 Wed, 27 Feb 2008 00:27:55 +0900 http://knowledge.livedoor.com/32364 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 2 Mon, 03 Mar 2008 00:23:57 +0900 http://knowledge.livedoor.com/32363 パソコンの買い方について質問です。 今使っているパソコンが古くなってきたので買い替えを検討しているのですが上手な買い方を教えて下さい。 スペックとしては開発の勉強をしたいのでそれなりにいいもので移動が自由なノートがいいのですがあまりお金がないので安いものがいいのです。 極論を言えば家電量販店で売っているようなソフトがじゃんじゃか入っているのはいりません。 DELLとかが結構安いようですがそんな感じで比較的高スペックで低価格のものはありますか？ Wed, 27 Feb 2008 00:18:09 +0900 http://knowledge.livedoor.com/32363 mr_r00 家電・携帯電話 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 3 Mon, 03 Mar 2008 00:23:24 +0900 http://knowledge.livedoor.com/32362 サービス残業のことについて質問です。前職でサービス残業をしており辞める際に問題点指摘と労働基準監督署へ通告を行いました。 その会社は今まで何度も調査に入られているのですがその度OKをもらって結局変わらずじまいなのです。 記録の改ざんを行っているためですがその旨を話しても監督署は形だけ調査に入るだけを何度も繰り返しています。 私の友人でも別会社ですが通告をしたのですが入ってないそうです。 こういった場合地方の監督署の怠慢だと思うのですがどうしたらよいのでしょうか？ 県？国？レベルでの調査依頼は不可能なのでしょうか。 私たち小市民だと裁判とかはどうしても気が引けるものです。 Wed, 27 Feb 2008 00:06:44 +0900 http://knowledge.livedoor.com/32362 mr_r00 その他 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 2 Mon, 03 Mar 2008 00:22:16 +0900 http://knowledge.livedoor.com/32336 VBscriptでの質問です。出来上がったソースとかを見ると段々右に文字がずれていくように作っていらっしゃる方がいますがあれはどういった意味合いなのでしょうか？ 僕自身が作ったものは左寄せになっています。 もちろんその状態で動くので問題は無いかと思うのですがどうなんでしょう？ あとファイルを作成するものをタスクで定期的に実行するものだったとき万が一前回実行失敗に備えて次回実行でカバーするようなものを書くべきなのでしょうか？ （繰り返し処理についてはどう書いたらよいのかまったくわからない状態ではあるのですが・・・） Tue, 26 Feb 2008 00:14:31 +0900 http://knowledge.livedoor.com/32336 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 2 Tue, 26 Feb 2008 23:36:53 +0900 http://knowledge.livedoor.com/32317 VBスクリプトについて質問があります。日付関数で例えば関数で今月を取得し（例：2008年1月に実行したとして）200801という結果を得たとします。 もし出た結果が01の時2007_10-12という値を返すような方法はありますでしょうか？ 条件としては四半期ごとにVBSでファイル名を作成するので作成のソースに埋め込むために値を出したいということになります。 ★バッチで1，4，7，10月に実行する 実行したときに1月であれば前の年と前四半期の月を入れる 例として2008年1月に実行すると2007_10-12 2008年4月に実行すると2008_01-03 といった具合になります。 どんな風にコーディングしたらよいのでしょうか？ Mon, 25 Feb 2008 00:29:46 +0900 http://knowledge.livedoor.com/32317 mr_r00 プログラミング・言語 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Tue, 26 Feb 2008 23:35:38 +0900 http://knowledge.livedoor.com/32305 VBscriptを使い日付関数で取得した値の中から一部の文字列を抜き出したいのですがうまくいかないのでどなたか間違いの箇所を指摘していただけないでしょうか？ ’先月を返します。 Dim b Dim yyyymm b=DateAdd("M",-1,Now) yyyymm=Year(b)*100+Month(b) ’先月の表示を変更します。 Dim lastmonth Dim strVal strVal = "yyyymm" lastmonth = Right(strVal, 4) Dim oLogQuery Dim strQuery Set oLogQuery = CreateObject("MSUtil.LogQuery") ' クエリ テキストを作成します。 strQuery = "SELECT cs-uri-stem,COUNT(*) AS view INTO View.csv FROM C:\test1\ex"&★lastmonth★&".log" strQuery = strQuery & " WHERE cs-uri-stem IN('/Default.htm';'/images/address.gif') GROUP BY cs-uri-stem ORDER BY COUNT(*) DESC" ' クエリを実行します。 oLogQuery.ExecuteBatch strQuery ※先月を返しますというところで2008年2月に実行したら200801という表示になると思います。（もし、1月に実行したら200712になりますよね？）200801の右から4文字を取り出し0801という文字列を作り★印の間に入れたいのですがうまくいきません。 また3か月分（四半期？）もやりたいのですがヒントがあったら教えて下さい。 Sun, 24 Feb 2008 16:48:53 +0900 http://knowledge.livedoor.com/32305 mr_r00 プログラミング・言語 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Tue, 26 Feb 2008 23:34:53 +0900 http://knowledge.livedoor.com/32303 WEBサーバーを管理しているときにログが出ると思いますがLogParserを用いてログ集計をしている方いらっしゃいますでしょうか？ IISででたログをLogParserを使って月ごとおよび四半期ごとに自動収集をしてCSVファイルに落としたいと考えております。 取得するためにVBscriptを使うつもりですがこういうやり方がよいよ！みたいなヒントがあったら教えて下さい。 VBSをバッチで定期的に動かすつもりではありますが・・・・ 四半期をどうしようか非常に悩んでおります。 よろしくお願いします。 Sun, 24 Feb 2008 14:36:08 +0900 http://knowledge.livedoor.com/32303 mr_r00 プログラミング・言語 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 Wed, 26 Mar 2008 06:10:05 +0900 http://knowledge.livedoor.com/32278 VB Scriptに詳しい方がいらっしゃいましたらお尋ねします。日付関数で取得したもの... VB Scriptに詳しい方がいらっしゃいましたらお尋ねします。日付関数で取得したものをソースに含めることは可能でしょうか？ 日付計算をして出したもの（yyyymm)★印と★印の間に代入したいのですがうまく出来ません 初歩の初歩かもしれませんがやり方かまちがっていますでしょうか？ 教えて下さい お願いします。 Dim oLogQuery Dim oEVTInputFormat Dim oCSVOutputFormat Dim strQuery Dim b Dim yyyymm b=DateAdd("M",-1,Now) yyyymm=Year(b)*100+Month(b) Set oLogQuery = CreateObject("MSUtil.LogQuery") ' 入力形式オブジェクトを作成します。 Set oEVTInputFormat = CreateObject("MSUtil.LogQuery.EventLogInputFormat") oEVTInputFormat.direction = "BW" ' 出力形式オブジェクトを作成します。 Set oCSVOutputFormat = CreateObject("MSUtil.LogQuery.CSVOutputFormat") oCSVOutputFormat.tabs = TRUE ' クエリ テキストを作成します。 strQuery = "SELECT TimeGenerated, EventID INTO C:\output%★yyyymm★%.csv FROM System" strQuery = strQuery & " WHERE SourceName = 'Application Popup'" ' クエリを実行します。 oLogQuery.ExecuteBatch strQuery, oEVTInputFormat, oCSVOutputFormat Sat, 23 Feb 2008 01:14:14 +0900 http://knowledge.livedoor.com/32278 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 2 Sun, 24 Feb 2008 15:37:39 +0900 http://knowledge.livedoor.com/32240 ☆フォルダアクセス権などについて質問があります。 （2003サーバー） 当方このたび部署転換で社内サーバー管理者になることになったのでいろいろ勉強しているところなのですが社内用イントラネットで（使用目的は社内交流ページのようなもの）わからないことがあります。 共有のアクセス権やフォルダのアクセス権の設定について勉強したいのですがいい資料がなく困っております。 基本的に概念が掴めないので知りたいのですがググったりしてもいいものがございません。 どなたかご教示いただけないでしょうか？ よろしくお願いします。 Thu, 21 Feb 2008 00:55:28 +0900 http://knowledge.livedoor.com/32240 mr_r00 Windows 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Sun, 24 Feb 2008 15:36:59 +0900 http://knowledge.livedoor.com/32215 tasklist.exe-コンポーネントが見つかりません。 framedyn.dllが見つからなかったためこのアプリケーションは開始できませんでした。・・・となってしまい困っております。 とあるVBSのソフトを使っているのですが使用すると上記のような表示が出てしまいます。 この直前に誤って環境変数のパスを全削除してしまいました。 おそらくこれが原因と考えておりますが・・・いろいろ人に聞いたり調べたりしてあるサイトにSystemrootの設定があったのでまねしてみましたが改善されません。 そのほかに対処法はありますでしょうか？ 出来ればOSの再インストールはしたくないです。 これのようにですが・・・ %SystemRoot%\system32;%SystemRoot%;%SystemRoot%\System32\Wbem あとVBSを起動時にインデックスが有効範囲にありません。 800A0009の表示が出ます。環境変数を操作した後になってしまいました。（泣）未熟な知識でいじったのが原因ですがよろしくお願いします。 Wed, 20 Feb 2008 00:21:04 +0900 http://knowledge.livedoor.com/32215 mr_r00 Windows 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Sun, 24 Feb 2008 15:35:57 +0900 http://knowledge.livedoor.com/32198 CGIを使う上で設定について困っております。 XPのIIS5.1+ActivePerlでCGIを動かせる環境を作り掲示板やカウンタ、メールフォームなどがローカル環境で動いております。 テストも終わったので2003serverを購入して似たような環境でやり始めたのですがどうしても思うように動いてくれません。 CGIのページを開くと404エラーが出てしまいます。 そこでDOSからperl -vを通してみるとしっかりインストールされているのは確認できます。 マッピングもしっかりやってあります。（もちろんXPで動かせたので基礎はOKだと思います） 簡単なCGI単体のテスト（一般的に言われるHelloWorldですが）をしてもダメです。 WEBサービス拡張でCGI使えるように許可してもダメですが「不明なCGI・・・・」を許可すると使えるようになりました。 CGIの許可の項目についてはActivePerlがインストール終わった時点で勝手に出来ておりました。（禁止になっている以外） ただ「不明なCGI・・・・」に関してはエラーポップアップが出るのでなんらかのセキュリティ問題があると考えておりますが問題はないでしょうか？また、なぜ5.1で使えたのに急に6.0では使用できなくなってしまうのでしょうか？ IIS6.0と5.1にはかなり差があるのでしょうか？ ご存知の方よろしくお願いします。 Tue, 19 Feb 2008 00:24:47 +0900 http://knowledge.livedoor.com/32198 mr_r00 プログラミング・言語 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 Fri, 21 Mar 2008 06:10:10 +0900 http://knowledge.livedoor.com/32196 IIIS6.0を使う際に必要な設定を確認したいと思うのでご存知の方よろしくお願いします。 CGIを使うという前提でフォルダのアクセス権などの設置が必要あると思いますが（今現在適当にやってしまっている）IUSERなどの設定の仕方を教えて下さい。 Tue, 19 Feb 2008 00:19:21 +0900 http://knowledge.livedoor.com/32196 mr_r00 Windows 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 Fri, 21 Mar 2008 06:10:10 +0900 http://knowledge.livedoor.com/32101 特定の条件のときに計算結果を導き出す方法をコマンドプロンプトで考えておりますがわからないので教えて下さい。 特定条件時にファイル名を変更するコマンドプロンプトを考えております。 set YYYYMM=%DATE:~-10,4%%DATE:~-5,2% set /a LASTMONTH=YYYYMM 例えばこの式をバッチで2008年の1月、4月、7月、10月実行するとします。 実行した後: 1月に実行したときに if %MONTH:~-2%==01という条件になったとき前年度と10-12というもの（200710-12）の計算結果を得たいです。（計算結果というより代入？？01という条件下では前年と10-12というものに変換する） 4月に実行したときに if %MONTH:~-2%==04という条件になったとき今年度と01-03というもの（200801-03）の計算結果が欲しいです。以下も同様です。 7月は if %MONTH:~-2%==07→200804-06 10月は if %MONTH:~-2%==10→200807-09 よろしくお願いします。 Wed, 13 Feb 2008 22:17:48 +0900 http://knowledge.livedoor.com/32101 mr_r00 プログラミング・言語 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 2 Sat, 16 Feb 2008 23:28:33 +0900