2021-04-03から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 …