dim a as Dictionary(Of Long, String()) a = ImportCSV(FileName) ■以下クラス Imports System.Text Public Class ImportCsv Implements IImportFile Public Function ImportExecute(ByVal filePath As String, ByVal Optional isHeaderImport As Boolean =…

■使い方の例 Dim wrk As New ExcelUtils wrk.OpenBook("C:\Users\kagaw\Desktop\ken_all (3)\aaaa.xlsx") wrk.ChangeSheet("休日") Dim vals As Object(,) = wrk.GetValueList() Debug.Print(vals(1001, 1)) wrk.Dispose() ■事前準備 プロジェクト⇒property⇒…