くるくるサンプルコード
VBA エクセルVBA UFF8でcsv出力する。
エクセルが扱う文字コードは基本的にshift-jisです。
下のコードは、エクセルのシートの入力内容をUFF8でcsv出力するためのコードです。ファイル名は自分のブック名に拡張子をcsvにしたものが出力されるようにしています。
【サンプルコード】
Sub utf8でCSV出力()
'「Microsoft ActiveX Data Objects 6.1 Library」を参照設定を有効にする必要がある。
Dim ws As Worksheet
Dim Mycsv As String
Dim AdoStream As Object
Dim TuikiString As String
Dim Row As Long
Dim Col As Long
Set ws = ThisWorkbook.Worksheets(1)
Mybookname = ActiveWorkbook.Name
Set ObjFile = CreateObject("Scripting.FileSystemObject")
Mybookname2 = ObjFile.GetBaseName(Mybookname)
'保存するファイル名は変数Mycsvに格納
Mycsv = ActiveWorkbook.Path & "\" & Mybookname2 & ".csv"
Set AdoStream = CreateObject("ADODB.Stream")
Row = 1
With AdoStream
.Charset = "UTF-8"
.Open
'ストリームの行区切り文字を10(改行)に指定
.LineSeparator = 10
'行が空になるまで続ける
Do Until ws.Cells(Row, 1).Value = ""
Col = 1
TuikiString = ""
'列が空になるまで続ける
Do Until ws.Cells(Row, Col + 1).Value = ""
TuikiString = TuikiString & ws.Cells(Row, Col).Value & ","
Col = Col + 1
Loop
TuikiString = TuikiString & ws.Cells(Row, Col).Value
'TuikiStringの中身をAdoStreamへ。
.WriteText TuikiString, adWriteLine
Row = Row + 1
Loop
.SaveToFile Mycsv, adSaveCreateOverWrite
.Close
End With
MsgBox "出力完了"
End Sub
【くるくるサンプルコード一覧】
[くるくるサンプルコード][PHP if文のAND条件(かつ)][MYSQLで取得したに文字列にMYSQLで取得したアドレスをリンクする方法の一例][MYSQL Where句のAND条件][PHP 自分のURLを取得][PHP アクセス元のURLを取得][PHP_配列の中からランダムな値を取得][PHP 文字列を置換][PHP 文字列を出力する][VBA エクセルVBA UFF8でcsv出力する。][CSSで文字や画像の中央揃え][CSSで表(table)の中央揃え][JavaScriptでポップアップリンク]
お名前
