…t ppApp = CreateObject("PowerPoint.Application") ppApp.Visible = True 'B2セルのファイルパスを開く Dim ppPrs As Object Set ppPrs = ppApp.Presentations.Open(Range("B2").Value) Dim y As Long y = 5 'データは5行目からスタート 'A列(ページ番号)がある間ループ処理 While Cells(y, "A").Val…

…t ppApp = CreateObject("PowerPoint.Application") ppApp.Visible = True ppApp.Presentations.Add Dim n As Integer '5セット連続で貼り付けるループ処理 For n = 1 To 5 ppApp.ActivePresentation.Slides.Paste '※ここにテキスト置換などの処理が入ります（後述） Next n End Subこのコードの動きや、実際にスライド…

…et oApp = CreateObject("Excel.Application") End If oApp.Visible = True Set oBook = oApp.Workbooks.Add Set oSheet = oBook.Sheets(1) On Error GoTo 0 ' Excelの見出し作成 oSheet.Range("A1").Value = "Slide_ID" oSheet.Range("B1").Value = "Graph_Name" o…

…objSAPI = CreateObject("SAPI.SpVoice") '【ここが魔法の1行】言語を英語(US)に指定する Dim USVoice On Error Resume Next 'エンジンがない場合の回避策 Set USVoice = objSAPI.GetVoices("Language=409")(0) '409はUS英語のID On Error GoTo 0 '取得したボイスをセット If Not USVoice Is Nothing Then Set…

…et oApp = CreateObject("PowerPoint.Application") oApp.Visible = True oApp.Presentations.Add WithWindow:=msoTrue n = 0 '2. Findメソッドでシート内のデータをスキャン '※UsedRange（使用範囲）からデータが入っているセルを探す Set objFIND = ActiveSheet.UsedRange.Find("*") Do While Not ob…

…t ppApp = CreateObject("PowerPoint.Application") ppApp.Visible = True '可視にする DoEvents 'B2ファイルを開く Dim strPPFName As String strPPFName = Range("B2") 'B2に記載されたファイルを開きたい '開く、変数に入れる Dim ppセット先 As Object 'PowerPoint.Presentation 'pp:プレゼンテーション Set…

…et oApp = CreateObject("Excel.Application") oApp.Visible = True '可視にする oApp.UserControl = True '1.2 ファイルを開く sFileName = "d:\JRA_TEST\20220501\20220501単勝オッズ.xlsm" oApp.Workbooks.Open sFileName WScript.Sleep 1000 '1.3 マクロの実行 oApp.RUN "ie_JRA単…

…t objIE = CreateObject("InternetExplorer.application") 'IEのオブジェクトを作る objIE.Top = 0 objIE.Left = 0 objIE.Visible = True '見えるようにする(お約束) Call SetForegroundWindow(objIE.hwnd) '前面にIEを表示 Dim n As Integer Dim i As Integer '添え字 i番目などで使用 Dim strWORK…

…t objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 objIE.Top = 0 objIE.Left = 0 Dim i As Integer For i = 1 To 10 '最高10ページ単位で処理する '処理したいページを表示します。 objIE.Navigate "https://blog.haten…

…bjShell = CreateObject("Shell.Application") 'ウインドウの数だけまわすぞ For Each objWindow In objShell.Windows 'TypeNameでオブジェクト変数のタイプを表示する Debug.Print "タイプは:" & TypeName(objWindow.document) 'HTMLDocumentだったら If TypeName(objWindow.document) = "HTMLDocume…

…bjShell = CreateObject("Shell.Application") 'ウインドウの数だけまわすぞ For Each objWindow In objShell.Windows 'TypeNameでオブジェクト変数のタイプを表示する Debug.Print "タイプは:" & TypeName(objWindow.document) 'HTMLDocumentだったら If TypeName(objWindow.document) = "HTMLDocume…

…db=Server.CreateObject("ADODB.Connection") 'データアクセスにはJet.OLEDB.4.0を使うことを設定 db.Provider = "Microsoft.Jet.OLEDB.4.0" '次に、接続ＤＢの位置を渡すので、Server.MapPathで変換して渡す db.ConnectionString = Server.MapPath("db029.mdb") 'やっとデータベースを開ける db.open 'WHERE句を作成する …

…db=Server.CreateObject("ADODB.Connection") 'データアクセスにはJet.OLEDB.4.0を使うことを設定 db.Provider = "Microsoft.Jet.OLEDB.4.0" '次に、接続ＤＢの位置を渡すので、Server.MapPathで変換して渡す db.ConnectionString = Server.MapPath("db029.mdb") 'やっとデータベースを開ける db.open 'KUBUNが送られてきた…

…rs=Server.CreateObject("ADODB.Recordset") rs.CursorLocation = adUseServer 'カーソルはサーバーの指定 '接続文字列、SQLを渡して、レコードセットを開く rs.Open strSQL, Con, adOpenDynamic, adLockOptimistic '最終のデータを取得する rs.MoveLast 'レコードを最終行へ移動 NEXT_NO = Cint(rs.Fields("FID").Val…

…rs=Server.CreateObject("ADODB.Recordset") 'SQLのテーブル名には、ファイル名test090.csvを指定します。 strSQL = "select * from test090.csv" '接続情報の作成 ドライバーの指定と、DBQには、パスのみを指定する Con = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath(".") & ";" …

…db=Server.CreateObject("ADODB.Connection") 'データアクセスにはJet.OLEDB.4.0を使うことを設定 db.Provider = "Microsoft.Jet.OLEDB.4.0" '次に、接続ＤＢの位置を渡すので、Server.MapPathで変換して渡す db.ConnectionString = Server.MapPath("db089.mdb") db.open 'データベースを開く 'MAX関数を使用したSQL文を作…

…db=Server.CreateObject("ADODB.Connection") 'データアクセスにはJet.OLEDB.4.0を使うことを設定 db.Provider = "Microsoft.Jet.OLEDB.4.0" '次に、接続ＤＢの位置を渡すので、Server.MapPathで変換して渡す db.ConnectionString = Server.MapPath("db072.mdb") db.open 'データベースを開く 'T_月別売上 から 商品コード、…

…db=Server.CreateObject("ADODB.Connection") '.Provider？プロバイダー？通信会社？じゃなくって 'データアクセスにはJet.OLEDB.4.0を使うことを設定 db.Provider = "Microsoft.Jet.OLEDB.4.0" '次に、接続ＤＢの位置を渡すので、Server.MapPathで変換して渡す db.ConnectionString = Server.MapPath("cnt_etc.mdb") 'やっと…

…rs=Server.CreateObject("ADODB.Recordset") '接続文字 Con = "Driver={Microsoft Excel Driver (*.xls)};DBQ=" & _ Server.MapPath("test084.xls") & ";" Response.Write "作った、使った接続文字列は<br>" Response.Write "<CODE>Con = <b>" & Con & "</b></CODE><hr>" 'SQL文…

…rs=Server.CreateObject("ADODB.Recordset") '接続文字 Con = "Driver={Microsoft Excel Driver (*.xls)};DBQ=" & _ Server.MapPath("test084.xls") & ";" Response.Write "作った、使った接続文字列は<br>" Response.Write "<CODE>Con = <b>" & Con & "</b></CODE><hr>" 'SQL文…

…rs=Server.CreateObject("ADODB.Recordset") '接続文字 Con = "Driver={Microsoft Excel Driver (*.xls)};DBQ=" & _ Server.MapPath("test084.xls") & ";" Response.Write "作った、使った接続文字列は<br>" Response.Write "<CODE>Con = <b>" & Con & "</b></CODE><hr>" 'SQL文…

…db=Server.CreateObject("ADODB.Connection") '.Provider？プロバイダー？通信会社？じゃなくって 'データアクセスにはJet.OLEDB.4.0を使うことを設定 db.Provider = "Microsoft.Jet.OLEDB.4.0" '次に、接続ＤＢの位置を渡すので、Server.MapPathで変換して渡す db.ConnectionString = Server.MapPath("cnt_etc.mdb") 'やっと…

…db=Server.CreateObject("ADODB.Connection") db.Provider = "Microsoft.Jet.OLEDB.4.0" '接続ＤＢの位置を渡し、ＤＢオープン strDB = "cnt_etc.mdb" db.ConnectionString = Server.MapPath(strDB) db.open 'データベースをオープンする 'お約束のレコードセットの作成 テーブル名logから全項目（＊）を指定 'ORDER BY Wri…

…rs=Server.CreateObject("ADODB.Recordset") 'SQLのテーブル名には、ファイル名を指定します。 strSQL = "select * from test080.csv" '接続情報の作成 ドライバーの指定と、DBQには、パスのみを指定する Con = "Driver={Microsoft Text Driver (*.txt; *.csv)};DBQ=" & _ Server.MapPath(".") & ";" '↑MapPathに(…

…db=Server.CreateObject("ADODB.Connection") 'データアクセスにはJet.OLEDB.4.0を使うことを設定 db.Provider = "Microsoft.Jet.OLEDB.4.0" '次に、接続ＤＢの位置を渡すので、Server.MapPathで変換して渡す db.ConnectionString = Server.MapPath("db072.mdb") db.open 'データベースを開く 'T_月別売上 から 商品コード、…

…db=Server.CreateObject("ADODB.Connection") 'データアクセスにはJet.OLEDB.4.0を使うことを設定 db.Provider = "Microsoft.Jet.OLEDB.4.0" '次に、接続ＤＢの位置を渡すので、Server.MapPathで変換して渡す db.ConnectionString = Server.MapPath("db072.mdb") db.open 'データベースを開く 'T_月別売上 から 商品コード、…

…db=Server.CreateObject("ADODB.Connection") 'データアクセスにはJet.OLEDB.4.0を使うことを設定 db.Provider = "Microsoft.Jet.OLEDB.4.0" '次に、接続ＤＢの位置を渡すので、Server.MapPathで変換して渡す db.ConnectionString = Server.MapPath("db072.mdb") db.open 'データベースを開く '商品CDの一桁目を（左から１文字…

…db=Server.CreateObject("ADODB.Connection") 'データアクセスにはJet.OLEDB.4.0を使うことを設定 db.Provider = "Microsoft.Jet.OLEDB.4.0" '次に、接続ＤＢの位置を渡すので、Server.MapPathで変換して渡す db.ConnectionString = Server.MapPath("db072.mdb") db.open 'データベースを開く '商品CDの一桁目を（左から１文字…

…db=Server.CreateObject("ADODB.Connection") 'データアクセスにはJet.OLEDB.4.0を使うことを設定 db.Provider = "Microsoft.Jet.OLEDB.4.0" '次に、接続ＤＢの位置を渡すので、Server.MapPathで変換して渡す db.ConnectionString = Server.MapPath("db072.mdb") db.open 'やっとデータベースを開ける 'お約束のレコードセットの…

…db=Server.CreateObject("ADODB.Connection") '.Provider？プロバイダー？通信会社？じゃなくって 'データアクセスにはJet.OLEDB.4.0を使うことを設定 db.Provider = "Microsoft.Jet.OLEDB.4.0" '次に、接続ＤＢの位置を渡すので、Server.MapPathで変換して渡す db.ConnectionString = Server.MapPath("db072.mdb") 'やっとデー…