3

Excel/VBA マクロから Windows ボックスのフラット ファイルに Unicode 文字列を保存したいと考えています。マクロは通常の文字列を Unicode 表現に変換し、ファイルに保存して後で取得する必要があります。

4

3 に答える 3

6

前述のとおり、Microsoft Scripting Runtime (scrrun.dll) を使用できます。以下にいくつかの例を掲載しました。一部の人々は、ネイティブのファイル IO 機能も気に入っています。ここには広範な (そしてかなり包括的なスレッド) スレッドがあります: http://www.xtremevbtalk.com/showthread.php?t=123814

ただし、Unicode ファイルの場合は、おそらくテキストストリームを使用するのが最も苦痛ではありません:)

Public Sub StringToTextFile(ByVal path As String, ByVal value As String)
    'Requires reference to scrrun.dll
    Dim fso As Scripting.FileSystemObject
    Dim ts As Scripting.TextStream
    Set fso = New Scripting.FileSystemObject
    Set ts = fso.CreateTextFile(path, False, True)
    ts.Write value
    ts.Close
End Sub

Public Sub LazyMansWay(ByVal path As String, ByVal value As String)
    'Reference counting will cause the objects to be destroyed. The termination
    'events of the classes will cause the connections to be closed.
    CreateObject("Scripting.FileSystemObject").CreateTextFile(path, False, True).Write value
End Sub
于 2009-06-19T19:14:31.320 に答える
2

「Microsoft Scripting Runtime」COM コンポーネント (scrrun.dll) への参照を追加します。

ファイルを作成/読み取り/書き込みするためのすべてのクラス (具体的には FileSystemObject/TextStream) があります。

于 2009-06-19T04:26:56.733 に答える