■書式 Dim FSO Set FSO = WScript.CreateObject("Scripting.FileSystemObject") FSO.MoveFolder 対象フォルダパス,移動後のフォルダパス ■例：「雛形ファイル格納用」フォルダと直近３日分のフォルダを残し残りを移動する ■サンプルコード '----------------…

VBS フォルダの移動 VBS パスがあるのに「パスが見つかりません」とエラーがでるとき VBS 変数の宣言・配列の宣言・定数の宣言 VBS IF文 VBS Excelファイルの操作 VBS テキストファイルを操作する VBS Outolookを操作する①(ファイルを添付してメール送信) VB…

バッチファイルを作成した際、指定したフォルダのパスがあるのに「パスが見つかりません」のエラーが出て、原因究明に1日かけてしまったので覚書 ■原因メモ帳でVBSファイルを作成した場合、デフォルトで「UTF-8」形式のファイルとなる。そのため、アルファベ…

'昇順でソートする 'ソートの条件を設定 With ActiveSheet.Sort.SortFields '条件設定をクリア .Clear '1～10列目まで同じソートの条件設定をするため繰り返し処理 For i = 1 To 10 .Add Key:=Cells(1, i), _ SortOn:=xlSortOnValues, _ Order:=xlAscending,…

Worksheets.Add After:=Sheets(Worksheets.Count) ActiveSheet.Name = "追加シート名"

■WEB画面の表をスクレイピングした際などに表の項目のセルが分割されていたり１レコードが２行にまたがるなどしてキレイにテーブルが取得できない場合などに２行に割れたレコードを１行に編集する。 ■サンプルコード configモジュール Option Explicit Publi…

■フルパスを記載したファイル→￥で分割したファイルに編集する ↓ ■手順(このページの一番下のサンプルコードの解説） ①バリアント型の変数「temp」にフルパスが記載されている全範囲を格納する ※格納すると自動的に「temp」は2次元配列になる（1次元のインデ…

Option Explicit Sub TestGetArray() Dim arrayFiles() As String Dim strFolderPath As String Dim i As Integer Dim intIndexNum As Integer Dim intExcelRow As Integer strFolderPath = Sheets("Sheet1").Range("C2") arrayFiles = getFileArray(strFold…

呼び出し元プロシージャ Sub TestGetArray() Dim arrayFiles() As String Dim strFolderPath As String Dim i As Integer Dim intExcelRow As Integer strFolderPath = Sheets("Sheet1").Range("C2") arrayFiles = getFileArray(strFolderPath) intExcelRow …