No.1
- 回答日時:
http://ksbookshelf.com/DW/KanjiIchiran/index.htm …
http://ksbookshelf.com/DW/KanjiIchiran/KanjiIchi …
こういうこと。。。
ですかねぇ~。
自分の環境でも文字化けしましたが、これを試し。。。はしなかったので確実なこたいえませんが。。。
http://ksbookshelf.com/DW/KanjiIchiran/KanjiIchi …
こういうこと。。。
ですかねぇ~。
自分の環境でも文字化けしましたが、これを試し。。。はしなかったので確実なこたいえませんが。。。
No.2
- 回答日時:
「木偏に船の右側を組み合わせた『ショウ』」は「?」ですが、
Shift_JISには無い文字ですね。Excelはcsv保存ではShift_JISもど
きのコードしか扱えないので、UNICODEで追加された文字はあらかた
化けます。Excelの新しいバージョンで「csv保存に際して文字コー
ドを選択できる」ようになるのを待つしかないでしょう。
No.4ベストアンサー
- 回答日時:
こんばんは。
Unicode のテキスト出力はありますが、CSV のUnicode 出力はないようですね。
以下をVBEditor の標準モジュールに貼り付けて、Form ツールのボタンなどに付けてあげると良いと思います。なお、Import は、CSVで切り分けてくれないので、ツールの[区切り位置]で、コンマで切ってください。
昔、一度作っただけで、今回は、あまり詳しいところを見ていませんので、まだ不具合があるかもしれません。
もし、マクロがいやでしたら、テキスト (Unicode) で出力して、テキストエディタで、タブコード[\t]を、コンマ[,] に置換してください。Excel 2003 でもあります。
'-------------------------------------------
'Option Explicit
Sub CSV_OutputByUnicode()
Dim rng As Range
Dim i As Long, j As Long
Dim Fso As Object
Dim f As Object
Dim fName As Variant
Dim buf As String
Dim TxtLine As String
Dim objTxt As Object
Dim OverWrite As Boolean
Dim mPath As String
'出力パス
mPath = ActiveWorkbook.Path & "\"
Set rng = Selection
'範囲のチェック(マウスで選択)
If rng.Cells.Count < 3 Then
MsgBox "範囲を選択してください。", vbExclamation
Exit Sub
End If
On Error GoTo ErrHandler
Start:
Do
fName = Application.InputBox("出力名を入れてください。", "CSV出力", Type:=2)
If VarType(fName) = vbBoolean Then Exit Sub
Loop Until fName <> ""
fName = mPath & fName
'拡張子のチェック
If InStrRev(fName, ".") = 0 Then
fName = fName & ".csv"
ElseIf StrConv(Right(fName, InStrRev(fName, ".") + 1), vbNarrow) <> "csv" Then
fName = Right(fName, InStrRev(fName, ".")) & "csv"
End If
'ファイルの上書きチェック
If Dir(fName) <> "" Then
If MsgBox("上書きしますか", vbQuestion + vbOKCancel) = vbOK Then
OverWrite = True
Else
GoTo Start
End If
End If
'出力
Set Fso = CreateObject("Scripting.FileSystemObject")
Set f = Fso.CreateTextFile(fName, OverWrite, True)
For i = 1 To rng.Rows.Count
For j = 1 To rng.Columns.Count
buf = buf & "," & rng.Cells(i, j).Text
Next j
If TxtLine = "" Then
TxtLine = Mid(buf, 2)
Else
TxtLine = TxtLine & vbCrLf & Mid(buf, 2)
End If
buf = ""
Next i
f.Write (TxtLine & vbCrLf)
f.Close
ErrHandler:
If Err.Number > 0 Then
MsgBox Err.Number & " : " & Err.Description
Else
MsgBox fName & vbCrLf & "出力しました。", vbInformation
End If
Set objTxt = Nothing
Set f = Nothing
Set Fso = Nothing
Set rng = Nothing
End Sub
この回答へのお礼
お礼日時:2009/11/19 13:47
マクロは使い方がよく分かりませんでした…。すみません。
Unicodeテキストで保存して、タブをカンマに変えてみましたが、Excelでは1つのセルに表示されてしまいます。
区切りがタブのままであれば上手くいきましたので、このまま使おうと思います。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) csvファイルをExcel形式で読み込むには 2 2023/07/03 13:09
- システム CSVファイルのマッピング処理の省力化 1 2022/11/24 00:01
- Excel(エクセル) PowerQueryに詳しい方教えてください(Office365) 1 2022/07/24 21:11
- Excel(エクセル) ExcelデータのMacとWindowsの文字化け対策について教えてください‼︎ 私はMacを使って 1 2022/08/22 12:46
- Access(アクセス) CSVファイルの「0落ち」にVBA 6 2023/02/02 15:27
- Excel(エクセル) エクセルでcsvファイルを開いてVBAを使いたい 7 2022/04/28 11:12
- Excel(エクセル) iphonからone driveに保存してあるExcelを閲覧すると表示の仕方がちがうデータ 2 2022/12/21 13:51
- その他(Microsoft Office) ExcelをPDFで保存..できる無料版オフィスソフト 5 2023/07/09 09:57
- Excel(エクセル) Excelについて。 Excelからcsv変換したいのですが、 やり方はファイル→名前をつけて保存→ 7 2022/07/27 01:10
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/06/04 09:39
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PS4コントローラーをPCでゲーム...
-
printfとputcharの違いは
-
詳しくないので、どなたかお教...
-
MMDでavi出力が出来ない
-
テキストファイルから特定の文...
-
【エクセル、並び替えについて】
-
Accessの値をExcelに縦横入替出...
-
VBA レジストリの値の読み方に...
-
PIC16F1827のAD変換 PIC初心者...
-
C# 標準出力のencodingをutf8に...
-
エクセルVBAでテキストファイル...
-
4Kの外部モニターに出力すると...
-
show running configの出力結果
-
PS5をMacBookProに出力したいの...
-
VBAで有効数字の設定
-
コンピュータの仕組みについて
-
無線とかアンテナに関しの質問...
-
Net User コマンドで一覧表示
-
COBOLの桁落ち
-
OBS配信すると、マイクが途切れ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
PS4コントローラーをPCでゲーム...
-
4Kの外部モニターに出力すると...
-
MMDでavi出力が出来ない
-
プログラムについての質問です...
-
コンセントの電力は入力と出力...
-
AIに回答させるって
-
OBS配信すると、マイクが途切れ...
-
VBAでテキスト出力時のスペース...
-
cout と cerrの違い
-
アクセスでエクセルに出力する...
-
printfとputcharの違いは
-
ACCESS クエリ→フォーム...
-
VBAのExecメソッドで画面を非表...
-
COBOLのMOVEで桁数が異なる場合
-
テキストファイルから特定の文...
-
VBAで有効数字の設定
-
coutで出力した文字を消去する...
-
Windows Formアプリからコンソ...
-
KEYENCEのシーケンスプログラム...
-
CRC16計算について
おすすめ情報