Option Explicit Dim objExcel, objWorkbookDim args, iDim fso, folder, files, fileDim scriptFolder Set args = WScript.Arguments Set objExcel = CreateObject("Excel.Application")objExcel.Visible = FalseobjExcel.DisplayAlerts = False Set fso = …

Option Explicit Dim folderPathfolderPath = CreateObject("Scripting.FileSystemObject").GetParentFolderName(WScript.ScriptFullName) & "\" Dim outputFileoutputFile = folderPath & "PasswordProtectedFiles.txt" Dim fso, folder, file, txtFileSet …

パスワードが未設定のファイルは「読み取り専用パスワード」を付ける すでにパスワードが設定されているファイルは、ファイル名の頭に「【既に設定済み】」を付ける Option Explicit Dim folderPath, passwordfolderPath = CreateObject("Scripting.FileSyst…

先生：「今日はな、『フォルダの中にあるファイルの名前を全部リストにして書き出すプログラム』や。わかるか？」 生徒：「うーん…ファイルの名前をぜーんぶ書き出すってこと？」 先生：「そうや。たとえばパソコンの中のフォルダ見て、その中に何のファイル…

生徒: 先生、このコードは何をしてるんですか？ 先生: このコードは、元のCSVファイルから指定した列だけを抜き出して、新しいCSVファイルを作るものやで。 生徒: どの列を抜き出すかはどうやって決めるんですか？ 先生: columnsToKeep = Array(2, 4, 5) で…

生徒: 先生、このコードは何をしているんですか？ 先生: このコードは、指定されたExcelファイルを開いて、I列に入力された検索値を基に、該当する行のデータを個別のCSVファイルとして出力するものやで。 生徒: どんなデータがCSVに書き込まれるんですか？ …

検索値が指定される場合 生徒: 先生、このコードは何をしているんですか？ 先生: このコードは、指定されたExcelファイルの中から、I列にユーザーが指定した検索値を含む行を探し、その行の特定の列（A, B, C, G, H, I, N）を取り出して、個別のCSVファイル…

生徒: 先生、このコードは何してるんですか？ 先生: このコードは、パソコンで「MSPaint（ペイント）」を使ってスクリーンショットを保存するためのものなんやで。 生徒: え！ペイントを使うんですか？どうやって開くんですか？ 先生: そうやで、まず「MSPai…

生徒: 先生、このコードって何ですか？ 先生: これは、パソコンに「こんにちは、私はあなたのコンピュータです。」ってしゃべらせるコードやで。 生徒: え？パソコンがしゃべるんですか？どうやって？ 先生: そうやで！このコードでは、パソコンに「音声」を…

先生: よっしゃ！今日はこのコードを見てみようか。これは、2つのExcelファイルを使って、VLOOKUPの結果を新しいファイルに追加するプログラムやで。 生徒: VLOOKUPってなんですか？ 先生: VLOOKUPは、ある値を使って、別の場所から情報を引っ張ってくる関数…

先生: 今日はこのコードを見ていこうな。このプログラムは、あるフォルダーの中から、指定したテキストを含むテキストファイルを探して、結果をHTMLファイルにまとめるんやで。 生徒: へぇー、テキストを探してくれるんですね！どうやって探すんですか？ 先…

先生: 今日は、PDFファイルを2つに分けるプログラムの説明をするで。これを使うと、1つのPDFを指定したページで分けることができるんや。 生徒: えっ、それってどうやってするんですか？ 先生: まず、PDFを分割するために「PDFtk」というツールを使うんや。…

先生: 今日は、VBSスクリプトを使って、AccessのクエリからSQLを取り出す方法を説明するで。まず最初に、Accessを開く準備をするんや。 生徒: なるほど！Accessを開くんですね、どうやって？ 先生: そうやで！まず、CreateObject("Access.Application")って…

Dim excelApp, workbook, link, ws, hyperLinkDim filePath, newFilePathDim totalLinksRemoved, remainingLinks, totalHyperlinksRemoved ' ドロップされたファイルのパスを取得If WScript.Arguments.Count = 0 Then WScript.Echo "Excelファイルをドロップ…

Dim excelApp, workbook, linkDim filePathDim totalLinksRemoved, currentFileLinksRemoved ' ドロップされたファイルのパスを取得If WScript.Arguments.Count = 0 Then WScript.Echo "Excelファイルをドロップしてください。" WScript.QuitEnd If filePath…

’//cscript create_task.vbs Dim service, taskDefinition, triggers, trigger, settings, repetition ' タスクスケジューラのサービスを取得Set service = CreateObject("Schedule.Service")service.Connect ' タスクの定義を作成Set taskDefinition = serv…

Sub 複数のシートを印刷() Dim sheetNames As Variant Dim i As Integer ' 印刷したいシート名を配列にリストアップ sheetNames = Array("Sheet1", "Sheet2", "Sheet3") ' シート名を指定 ' 各シートを順番に印刷 For i = LBound(sheetNames) To UBound(shee…

Option Explicit ' 出力フォルダをVBSスクリプトが存在する場所に指定しますDim objFSO, objArgs, objFile, fileName, newName, scriptPath, outputFolderDim Filenumber ' File System Object を作成しますSet objFSO = CreateObject("Scripting.FileSystem…

Dim connDim rsDim connectionString ' 接続文字列の設定connectionString = "Provider=OraOLEDB.Oracle;Data Source=YourDataSource;User Id=YourUsername;Password=YourPassword;" ' 接続オブジェクトの作成Set conn = CreateObject("ADODB.Connection")Se…

■プログラム/スクリプト：VBSファイルパス Dim excelApp,macro file = WScript.Arguments(0)macro = WScript.Arguments(1) Set excelApp = CreateObject("Excel.Application") excelApp.Visible = False 'Excelを非表示にするexcelApp.DisplayAlerts = False…

Sub SaveCSVWithDate() Dim savePath As String Dim fileName As String Dim currentDate As String ' 現在の日付を取得し、yyyymmdd形式にフォーマットする currentDate = Format(Date, "yyyymmdd") ' 保存先のパスを指定する場合 savePath = "C:\YourFolde…

Dim FilePathFilePath = "D:\ThinkpadMark3\自学\filename変更_bat類\.xlsm\繰り返しCopy.xlsm" Dim appSet app = CreateObject("Excel.Application")app.Visible = trueapp.Workbooks.Open FilePathapp.Run "Module1.繰り返し" app.DisplayAlerts = False a…

''vbs------------ ' Create Internet Explorer ObjectSet IE = CreateObject("InternetExplorer.Application") ' Set visibility to true to make it visible, false to hide itIE.Visible = True ' Navigate to the specified webpageIE.Navigate "https:/…

Option Explicit ' ドロップアウトするフォルダを指定しますConst sourceFolder = "Z:\Work\" ' 出力フォルダを指定しますConst outputFolder = "Z:\Work\" Dim objFSO, objFolder, objFileDim shell, newName, fileName ' File System Object を作成しますS…

' フォルダのパスを指定folderPath = "Z:\Work" ' 出力ファイルの保存場所とファイル名を指定 ’desktopPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")outputFolderPath = "C:\Custom\Path"outputFileName = "output.txt" ' ファイル一覧を…

On Error Resume Next Set objFSO = CreateObject("Scripting.FileSystemObject") ' スクリプトのフルパスを取得scriptPath = WScript.ScriptFullName ' スクリプトが存在するディレクトリを取得scriptFolder = objFSO.GetParentFolderName(scriptPath) ' フ…

Set objExcel = CreateObject("Excel.Application")objExcel.Visible = False ' Excelウィンドウを非表示にする ' ExcelファイルのパスstrExcelPath = "C:\パス\MyExcelFile.xlsm" ' Excelファイルを開くSet objWorkbook = objExcel.Workbooks.Open(strExcel…

Set objShell = CreateObject("WScript.Shell")objShell.Run "Z:\Work\立ち上げたいバッチ.bat", 1, True

Set objFSO = CreateObject("Scripting.FileSystemObject") ' ソースフォルダのパスを指定sourceFolder = "C:\パス\から\あなたの\ソース\フォルダ"'スクリプトが配置されているフォルダをソースフォルダとして指定'scriptFolder = Replace(WScript.ScriptFu…

Set objFSO = CreateObject("Scripting.FileSystemObject") ' ソースフォルダのパスを指定sourceFolder = "C:\パス\から\あなたの\ソース\フォルダ"'スクリプトが配置されているフォルダをソースフォルダとして指定'scriptFolder = Replace(WScript.ScriptFu…