Sub Main() Dim sh As Worksheet Set sh = Sheets("シート名") Dim i As Integer Dim j As Integer i = 2 j = 1 Do While sh.Cells(i, 1) <> "" Dim line As String Dim header As String Dim v As String j = 2 line = "<record>" & vbCrLf Do While sh.Cells(1, j) </record>…

文字列操作系の関数 '------------------------------------------------------------------------------ ' ファイル名 '------------------------------------------------------------------------------ ' 説明 '---------------------------------------…

csvからjsonに変換するvba。 BigQueryのスキーマ定義用のjsonを作成する用に開発。エラーハンドリングなどは仕込んでいない。 Option Explicit Dim oFSO As Variant Public Sub Main() Dim targetBook As String targetBook = GetConfig("定義ファイル") Dim…

Option Explicit Public Sub Main() Dim sh As Worksheet Set sh = ThisWorkbook.Worksheets(1) unpivot sh, "データ" End Sub Public Function unpivot(sh As Worksheet, areaName As String) Dim rg As Range Set rg = sh.Cells.Range(areaName) Dim row A…

Public Function OpenBook(filename As String) Dim buf As String Dim book As Workbook Dim openedBook As Workbook buf = Dir(filename) If buf = "" Then Set OpenBook = Nothing Exit Function End If For Each book In Workbooks If book.name = buf T…