VBS の検索結果:
.vbs で マクロ付きExcelファイル .xlsm を開き、マクロを実行してみます。 タイトル画像1.簡単なVBSの説明 Set oApp = Nothing '1.1 Excelを起動 WScript.Sleep 1000 Set oApp = CreateObject("Excel.Application") oApp.Visible = True '可視にする oApp.UserControl = True '1.2 ファイルを開く sFileName = "d:\…
…でを処理するコードをVBSで実行してみます下記、いつもの解説動画です※蛇足付きですがよろしく。 【VBS】VBSでExcelの定数xlDownなどを使う方法 例.End(xlDown).Rowで最終行【三流君】 - YouTube www.youtube.com最終行までループさせるコードでよく見かけるのがRange("A1").End(xlDown).Row などで、 データの入ってる最終行を求め、 ループで回す方法です。 Sub test最終行までループする() Dim …
人力検索はてなの質問 q.hatena.ne.jp の 回答をライブ配信で作ろうとするが、ハマったお話です。 ※前半は、グダグダなので、ゆるしてください・・・PowerPoint VBA 二つのスライド 次ページ処理を同時に行う方法をライブ配信で探ってみた・・・ - YouTube www.youtube.comマクロのボタンを押すと、 立ち上がっている二つのスライド を 単純に次のページにするなら 18:32 のような処理でいいなら Sub next2() Applicat…
…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>HEX16進文字列を受け取り2進数文字列を返す(例外エラー処理なし)</title> </head> <body> <h1>HEX16進文字列を受け取り2進数文字列を返す(例外エラー処理なし)</h1> 自作した16進数文字列から2進数文字列への変換ルーチンを…
…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>FORM CHECKBOX NAME=を個別に作成(Ifの嵐でWhere句を作成)</title> </head> <body> <h1>FORM CHECKBOX NAME=を個別に作成(Ifの嵐でWhere句を作成)</h1> <FORM ACTION="…
…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>HTML FORM SELECT OPTION の 入力(選択)テスト</title> </head> <body> <h1>HTML FORM SELECT OPTION の 入力テスト</h1> <hr> <b>フォームから送られて来た値を表示します</b…
…@LANGUAGE=VBScript%> <% Response.CacheControl = "no-cache" %> <% Response.AddHeader "Pragma", "no-cache" %> <% Response.Expires = -1 %> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>ADOでReadOnly=0と…
…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>ADO Extended Properties='text;HDR=NO' でヘッダー無しCSVと接続</title> </head> <body> <h1>ADO Extended Properties='text;HDR=NO' でヘッダー無しCSVと接続…
…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>SQL MAX関数 MAX(項目名) で 最大値を求める</title> </head> <body> <h1>SQL MAX関数 MAX(項目名) で 最大値を求める</h1> <pre> Select MAX(ID), MAX([no]), MAX(金額)…
…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>SQL Select Where (項目1+項目2..) > 0 を入れ、0円をハジク</title> </head> <body> <h1>SQL Select Where (項目1+項目2..) > 0 を入れ、0円をハジク</h1> <pre> Sele…
…@LANGUAGE=VBScript%> <% qqq = Trim(Request.QueryString("q")) 'パラメータ %> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>SQL SELECT WHERE句で Like演算子を使用して部分検索する <%=qqq%></title> </head> <body> <h1>SQL SE…
…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>Ubound(配列,1)とUbound(配列,2)をテストする</title> </head> <body> <h1>Ubound(配列,1)とUbound(配列,2)をテストする</h1> test086-1.asp<br> Dim BOX(12,5) と宣…
…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>ADOでExcel(*.xls)に接続 .GetRowsで全件読み込んでみた</title> </head> <body> <h1>ADOでExcel(*.xls)に接続 .GetRowsで全件読み込んでみた</h1> test085-1.asp<br> AS…
…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>ADOでExcel(*.xls)に接続 [Sheet1$]で列名無しテスト</title> </head> <body> <h1>ADOでExcel(*.xls)に接続 [Sheet1$]で列名無しテスト</h1> test084-1.asp<br> ASPか…
…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>SQL文 Select TOP 20 でGroup化集計値のTOP20を作成</title> </head> <body> <h1>SQL文 Select TOP 20 でGroup化集計値のTOP20を作成</h1> test083-1.asp<br> <h…
…@LANGUAGE=VBScript%> <% '頭でページのパラメータをチェックする nPAGE = Cint("0" & Request.QueryString("page")) If nPAGE = 0 Then 'パラメータ無しなら強引に1ページにする nPAGE = 1 End IF %> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <META N…
…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>キーワード分解 Replace関数とSplit関数とUBound関数</title> </head> <body> <h1>キーワード分解 Replace関数とSplit関数とUBound関数</h1> test081-1.asp<br> スペースで区切って好…
…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>ADO Driver={Microsoft Text Driver (*.txt; *.csv)};DBQ=で接続</title> </head> <body> <h1>ADO Driver={Microsoft Text Driver (*.txt; *.c…
…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>Server.URLEnCodeを使い、エンコードして表示する</title> </head> <body> <h1>Server.URLEnCodeを使い、エンコードして表示する</h1> <br> Server.URLEnCode(文字列)でエンコードした…
…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>Null AS DUMMY商品名とダミーの項目を作り列数を合わせる</title> </head> <body> <h1>Null AS DUMMY商品名とダミーの項目を作り列数を合わせる</h1> <pre> UNIONで表をつなげる時、列数が合わないとエラ…
…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>SQL UNION ALL テーブルの形をそろえて対応</title> </head> <body> <h1>SQL UNION ALL テーブルの形をそろえて対応</h1> マスターテーブルとリンクして商品名を取り込むと、<br> 集計用のSQLとテーブルの…
…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>SQL Group By Left([商品CD], 1) で小計を計算する</title> </head> <body> <h1>SQL Group By Left([商品CD], 1) で小計を計算する</h1> 商品CDの頭1桁目でグループ化して、小計を計…
…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>SQL 演算フィールドのテスト SQL文でLeft関数使用</title> </head> <body> <h1>SQL 演算フィールドのテスト SQL文でLeft関数使用</h1> 商品CDの一桁目を(左から1文字を)GroupCDにする。<br> strS…
…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>SQL From句にテストで2つのテーブルデータを指定(つなげない)</title> </head> <body> <h1>SQL From句にテストで2つのテーブルデータを指定(つなげない)</h1> なにも条件を指定しないで、2つのテーブルをFrom句に書…
…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>テストでテーブル内の全データを表示してみる</title> </head> <body> <h2>テストでテーブル内の全データを表示してみる</h2> Set rs = db.Execute("Select * From T_月別売上")<br> と、全ての項…
…@LANGUAGE=VBScript%> <% Response.CacheControl = "no-cache" %> <% Response.AddHeader "Pragma", "no-cache" %> <% Response.Expires = -1 %> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>FileSystemObjec…
…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>SQL Select DISTINCT キーワードを 使用してみる</title> </head> <body> <h1>SQL Select DISTINCT キーワードを 使用してみる</h1> test070-1.asp<br> <hr> cnt.mdb…
…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>FileSystemObjectの.GetTempName(一時ファイル名を作成する)</title> </head> <body> <h2>一時ファイル名を作成する<br>FileSystemObjectの.GetTempName</h2> <b>FileS…
…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>ディレクトリ内のファイル一覧を表示する FileSystemObjectの.GetFolder</title> </head> <body> <h2>ディレクトリ内のファイル一覧を表示する<br>FileSystemObjectの.GetFolder</h2>…
…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>配列にメッセージを代入して使う</title> </head> <body> <h2>配列にメッセージを代入して使う</h2> If文の羅列から、配列を使用した処理に変更してみた。<br> ポイントは、<br> Dim nMSGNO <Font Color='…