http://makotowatana.ld.infoseek.co.jp/access/index.html

Sub writedown1()Dim Db As Database, D As Recordset, QD As QueryDef Dim str_message As String Set Db = DBEngine.Workspaces(0).Databases(0)Set QD = Db.CreateQueryDef("Q_serial", "Select * from sample order by sample2") Set D = Db.OpenRecords…

Sub writedown()Dim Db As Database, Tbl As Recordset Dim str_message As String Set Db = DBEngine.Workspaces(0).Databases(0)Set Tbl = Db.OpenRecordset("sample", DB_OPEN_TABLE)Do Until Tbl.EOF str_message = str_message & Tbl!sample1 & "," & T…

strFileName="D:\sample.txt" set objFileSystem=CreateObject("Scripting.FileSystemObject") set objFile=objFileSystem.CreateTextFile(strFileName) objFile.Write("test1") objFile.Write(vbCrLf) objFile.Write("test2") objFile.close

Dim kekka Dim d(199)'moji="asdfg"'kekka = Hex(Asc(moji)) 'kekka'msgbox kekkaip_ad="192.168.31.91"str_tmp=ip_ad str_tmp=str_tmp & "."i=1do while i d(i)=Cint(left(str_tmp,instr(str_tmp,".")-1)) str_tmp=Mid(str_tmp,instr(str_tmp,".")+1) i=i+1…

set xlapp=createobject("Excel.Application")xlapp.visible=truexlapp.displayalerts=Falseset xlbook=xlApp.Workbooks.open("C:\xls\030526.xls")xlApp.run("Macro1")msgbox xlbook.worksheets("sheet1").Range("A" & 2).value xlbook.worksheets("sheet1"…

Set WshShell = WScript.CreateObject("WScript.Shell") BtnCode = WshShell.Popup("10秒間の表示をします", 10, "これはテスト")msgbox BtnCodeset WshShell = nothing

' Function tsumeru(str_temp, int_num) Dim str_work0 Dim str_work1 ' dim str_work0 = str_temp ' str_work1 = StrConv(str_work0, vbFromUnicode) str_work1 = StrConv(str_work0, 1) Do While LenB(str_work1) > int_num str_work0 = Left(str_work0, L…