XML活用講座

ExcelからXMLに変換する





概要

今回は、ExcelファイルをXMLに変換する方法を説明します。また、Excelファイルだけでなく、CSV（カンマ区切りテキスト）やTSV（タブ区切りテキスト）からの変換方法もご紹介します。
CSVやTSVの他にも、Microsoft Access、MySQL、PostgreSQLなどのデータベースからも「CSVエクスポート機能」などを使ってデータを書き出せば、XMLに変換できます。
データをXML化してしまえば、Webサイトで「商品一覧」や「商品明細」として表示させるプログラムの自動作成や、「商品カタログ」用のPDFや印刷データの自動組版処理に利用できます。例えば当社では、Excelから変換したXMLデータを翻訳し、多言語の商品カタログを制作するなど、数多くの事例があります。

 

Microsoft Excel （CSV・TSV）からの変換

Wordだけでなく、Excelからもツールを利用してXMLに変換できます。

しかし、Excelから直接XMLに変換できるソフトウエアはあまり多くありません。
当社でもExcelデータ（*.xlsx）をXMLに変換するツールを独自に開発していますが、変換速度や安定性を考慮し、用途に応じてサードパーティー製のソフトウエアを併用することがあります。

その場合は、「Excel2XML」といったキーワードよりも「CSV2XML」などでインターネットサイトを検索した方が、多くのソフトウエアが見つかります。
ExcelファイルをExcelで開いて「CSV形式」や「TSV形式（UNICODEテキスト）」で別名保存した後、そのデータを変換する流れとなります。

特に多言語のExcelファイルを扱いたい場合は「CSV形式」よりも「TSV形式」をお勧めします。日本語版Excelの場合、「CSV形式」で保存すると文字コードが「Shift_JIS」となってしまい、多言語の文字列が正しく書き出せないからです。「TSV形式」で保存すると文字コードが「UTF-16」となるため、多言語のデータであっても元データとして扱えるようになります。

!Note
「CSV」 とは“comma-separated values”の略で、カンマ（,）でデータを区切った形式のテキストファイルです。
「TSV」 とは“tab-separated values”の略で、タブ記号でデータを区切った形式のテキストファイルです。
文字コードについては、「CSVがShift_JIS」 「TSVがUNICODE」という決まりはなく、Microsoft Excelの保存機能の仕様によるものです。

 

変換イメージ

元データ（Excel）のイメージ

１行１列目のデータ １行２列目のデータ
２行１列目のデータ ２行２列目のデータ

 

XML化したイメージ

Excelシート・CSV１ファイル・TSV１ファイルを１つの元データの単位として、ほとんどの場合は「ルート」「行」「セル」の３階層から成る単純なXMLとなります。

	

    
        
            １行１列目のデータ
        
        
            １行２列目のデータ
        
    
    
        
            ２行１列目のデータ
        
        
            ２行２列目のデータ

 

Excel2CSVスクリプトのサンプル

簡単なVBスクリプトのサンプルは、以下のとおりです。

メモ帳などのエディターにソースコードをコピーして、「excel2csv.vbs」などのファイル名で保存します。
このScriptファイルにExcelファイルをドラッグ・アンド・ドロップすると、変換処理が行われます。

If wscript.arguments.count > 0 Then
	If CreateObject("Scripting.FileSystemObject").FileExists ( wscript.arguments.item(0) ) = True Then
		Call main ( wscript.arguments.item(0) )
	End If
End If
Sub main(file)
	Dim oExcel, oDoc
	Dim sExt
	Set oExcel = CreateObject("Excel.Application")
	oExcel.Visible = false
	oExcel.Application.DisplayAlerts = FALSE
	sExt  = LCase(MID(file, InStrRev(file, ".") + 1))
	If sExt = "xlsx" Then
		Set oDoc = oExcel.Workbooks.Open(file)
		oExcel.ActiveWorkbook.SaveAs file & ".csv", 62
		oDoc.Close
	ElseIf sExt = "xls" Then
		Set oDoc = oExcel.Workbooks.Open(file)
		oExcel.ActiveWorkbook.SaveAs file & ".csv", 62
		oDoc.Close
	End If
	Set oDoc = Nothing
	oExcel.Quit
	Set oExcel = Nothing
End Sub

上記のスクリプトは次のリンクからダウンロードできます。

excel2csv.vbs

 

 

!Note
ご利用結果について、当社は一切の責任を負いません。

 

CSV2XMLスクリプトのサンプル

簡単なVBスクリプトのサンプルは、以下のとおりです。

メモ帳などのエディターにソースコードをコピーして、「csv2xml.vbs」などのファイル名で保存します。
このScriptファイルの６行目には「変換したいCSVファイル」を設定してください。７行目には「変換後のXMLファイル」を指定してください。
このScriptファイルをダブルクリック等で実行すると変換処理が行われます。

Dim FSO, wShell, dPath, rPath, wPath

Set wShell = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")

rPath = "C:input.csv"
wPath = "C:output.xml"
Set ReadFile = FSO.OpenTextFile(rPath, 1, true)
Set WriteFile = FSO.OpenTextFile(wPath, 2, True)

Dim arr, arrHead

wStr = ""
rStr = ReadFile.ReadLine
arrHead = Split(rStr, ",")

wStr = wStr & ""
WriteFile.WriteLine(wStr)

Do While ReadFile.AtEndOfStream <> True
	rStr = ReadFile.ReadLine
	arr = Split(rStr, ",")
	wStr = ""
	If UBound(arr) > -1 Then
		wStr = wStr & vbTab & ""
		wStr = wStr & vbNewLine
		For i = 0 to UBound(arr)
			If i < UBOUND(arrHead) +1 Then
				wStr = wStr & vbTab & vbTab & "<" & arrHead(i) & ">"
				wStr = wStr & arr(i)
				wStr = wStr & ""
				wStr = wStr & vbNewLine
			End If
		Next
		wStr = wStr & vbTab & ""
		WriteFile.WriteLine(wStr)
		wStr = ""
	End If
Loop

wStr = wStr & ""
WriteFile.WriteLine(wStr)

ReadFile.Close()
WriteFile.Close()

Set wShell = Nothing
Set FSO = Nothing

上記スクリプトは次のリンクからダウンロードできます。

csv2xml.vbs

 

とても簡単なスクリプトなので、セル内でクォーテーション（”）や改行を含むデータを正しく処理できない場合があります。また、１行目をヘッダー行として扱うため、１行目の各セルの内容がXMLの要素名として使えない場合（数字始まりや、「＆」記号が含まれるなど）、XMLとして扱えないデータが出力されることがあります。

 

!Note
ご利用結果について、当社は一切の責任を負いません。

 

«

»



ページTOPへ