Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

11634 / 76734

←次へ　｜　前へ→


	【70632】Re:波ダッシュの変換

ichinose - 11/12/10(土) 11:37 -


	引用なし

	パスワード

おはようございます。

>
>外部から送られてくるExcelブックを読み込んで、固定長のテキストファイルと
>して保存するマクロを作成し、使用しています。
どんなコードなんでしょうか？

この波ダッシュって、

sub 例()
　　CreateObject("wscript.shell").popup chrw(&h301c)
end sub
ですよね？
FSOを使ってみては？

Sub 書き込み3()
　　Dim fso As Object
　　Set fso = CreateObject("scripting.filesystemobject")
　　With fso.CreateTextFile(ThisWorkbook.Path & "\text.txt", True, True)
　　　 .WriteLine ChrW(&H301C) & "abcd"
　　　 .Close
　　End With
End Sub
Sub 読み込み3()
　　Dim fso As Object
　　Dim aa As String
　　Set fso = CreateObject("scripting.filesystemobject")
　　With fso.OpenTextFile(ThisWorkbook.Path & "\text.txt", 1, False, -2)
　　　　aa = .ReadLine
　　　 .Close
　　End With
　　CreateObject("wscript.shell").popup aa
End Sub

5 hits

▼

【70630】波ダッシュの変換 monta 11/12/9(金) 15:19