\uff23\uff33\uff36\u5f62\u5f0f\u3067\u306e\u4fdd\u5b58\u6642\u306b\u201d\u6587\u5b57\u5217\u5f15\u7528\u7b26\u201d\u306b\u3057\u305f\u3044\uff08\u30a8\u30af\u30bb\u30eb\uff09 -OKWave<\/a><\/p>\n\uff11\uff0e\u3068 \uff12\uff0e\u306e\u4e21\u65b9\u3092\u517c\u306d\u5099\u3048\u305f VBA \u30de\u30af\u30ed<\/h3>\n
\u3053\u306e\u4e8c\u3064\u306e\u30de\u30af\u30ed\u3092\u5408\u4f53\u3055\u305b\u3066\u3001\u5c11\u3005\u5909\u66f4\u3057\u305f\u3089\u51fa\u6765\u308b\u3002<\/p>\n
<\/p>\n
\r\nSub CSVExport_W_Qt_UTF8()\r\n' **********************************\r\n' \u521d\u671f\u8a2d\u5b9a\r\n' **********************************\r\n\r\n' \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u5909\u6570\u306e\u5b9a\u7fa9\r\n Dim file_source As Object\r\n Dim file_target As Object\r\n\r\n Dim code_source As String\r\n Dim code_target As String\r\n Dim char_temp As String\r\n\r\n' \u6587\u5b57\u30b3\u30fc\u30c9\u3092\u6307\u5b9a\r\n code_source = "Shift_JIS"\r\n code_target = "UTF-8"\r\n\r\n' \u8868\u793a\u7121\u52b9\r\n Application.DisplayAlerts = False\r\n\r\n\r\n' **********************************\r\n' CSV\u30d5\u30a1\u30a4\u30eb\u306e\u4fdd\u5b58\r\n' **********************************\r\n\r\n Dim Fname As String\r\n Dim usedRng As Range\r\n Dim i As Long, j As Long\r\n Dim buf As String\r\n Dim Fno As Integer\r\n Const Qt As String = """"\r\n Fname = Application.InputBox("\u51fa\u529b\u540d\u3092\u5165\u529b\u3057\u3066\u304f\u3060\u3055\u3044\u3002", Type:=2)\r\n If VarType(Fname) = vbBoolean Or Fname = "" Then Exit Sub\r\n If InStr(Fname, ".csv") = 0 Then Fname = Fname & ".csv"\r\n Fno = FreeFile()\r\n Open Fname For Output As #Fno\r\n With ActiveSheet\r\n Set usedRng = .UsedRange\r\n On Error Resume Next\r\n For i = 1 To usedRng.Rows.Count\r\n For j = 1 To usedRng.Columns.Count\r\n If Not IsEmpty(usedRng.Cells(i, j)) Then\r\n buf = buf & ";" & Qt & usedRng.Cells(i, j).Value & Qt\r\n Else\r\n buf = buf & ";"\r\n End If\r\n Next j\r\n Print #Fno, Mid$(buf, 2)\r\n buf = ""\r\n Next i\r\n On Error GoTo 0\r\n End With\r\n Close #Fno\r\n Beep\r\n\r\n' **********************************\r\n' CSV\u30d5\u30a1\u30a4\u30eb\u3092UTF-8\u306b\u5909\u63db\r\n' **********************************\r\n \r\n' ADODB.Stream\u3092\u53c2\u7167\r\n Set file_source = CreateObject("ADODB.Stream")\r\n\r\n' CSV\u30d5\u30a1\u30a4\u30eb\u306e\u8aad\u307f\u8fbc\u307f\r\n With file_source\r\n .Charset = code_source\r\n .Open\r\n .LoadFromFile Fname\r\n char_temp = .ReadText\r\n End With\r\n\r\n' CSV\u30d5\u30a1\u30a4\u30eb\u306e\u66f8\u304d\u51fa\u3057\r\n Set file_target = CreateObject("ADODB.Stream")\r\n With file_target\r\n .Charset = code_target\r\n .Open\r\n .WriteText char_temp\r\n End With\r\n \r\n' \u6587\u5b57\u30b3\u30fc\u30c9\u306e\u5909\u63db\r\n file_source.copyto file_target\r\n file_target.savetofile Fname, 2\r\n\r\nEnd Sub\r\n<\/pre>\n\u4f7f\u3048\u308c\u3070OK\u3068\u3044\u3046\u30ec\u30d9\u30eb\u306e\u30c4\u30fc\u30eb\u306a\u306e\u3067\u3001\u672c\u5f53\u306b\u5408\u4f53\u3055\u305b\u305f\u3060\u3051\u3067\u7d71\u4e00\u611f\u304c\u5168\u304f\u306a\u3044\u304c\u554f\u984c\u306a\u304f\u52d5\u304f\u3002<\/p>\n
\u30d5\u30a3\u30fc\u30eb\u30c9\u5185\u306e\u30c7\u30fc\u30bf\u306e\u30a8\u30b9\u30b1\u30fc\u30d7\u306f\u3057\u3066\u3044\u306a\u3044\u70b9\u306b\u6ce8\u610f\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"
\u30a8\u30af\u30bb\u30eb\uff08Excel\uff09\u3067\u4f5c\u3063\u305f\u30c7\u30fc\u30bf\u3092 CSV \u3067\u4fdd\u5b58\u3057\u3066 phpMyAdmin \u3078\u30a4\u30f3\u30dd\u30fc\u30c8\u3059\u308b\u305f\u3081\u306b\u4e0b\u8a18\u306e\u554f\u984c\u3092\u89e3\u6d88\u3059\u308b\u3002 \uff11\uff0e\u6587\u5b57\u30b3\u30fc\u30c9\u3092UTF-8\u306b\u3059\u308b\u3002 \u30a8\u30af\u30bb\u30eb\u3067 CSV \u30d5\u30a1\u30a4\u30eb\u5f62\u5f0f\u306b\u4fdd\u5b58\u3059\u308b\u3068\u3001\u6587\u5b57\u30b3\u30fc\u30c9 […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[31],"tags":[35,34],"_links":{"self":[{"href":"https:\/\/www.zontheworld.com\/blog\/wp-json\/wp\/v2\/posts\/48"}],"collection":[{"href":"https:\/\/www.zontheworld.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.zontheworld.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.zontheworld.com\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.zontheworld.com\/blog\/wp-json\/wp\/v2\/comments?post=48"}],"version-history":[{"count":0,"href":"https:\/\/www.zontheworld.com\/blog\/wp-json\/wp\/v2\/posts\/48\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.zontheworld.com\/blog\/wp-json\/wp\/v2\/media?parent=48"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.zontheworld.com\/blog\/wp-json\/wp\/v2\/categories?post=48"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.zontheworld.com\/blog\/wp-json\/wp\/v2\/tags?post=48"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}