mhw0915さん、こんばんは。

＞こんにちは。
＞韓国の開発者なので不思議な日本語を使っても了解して下さい。
＞このようにTXT fileを　Excel fileにSaveしています。
＞
＞myOleObject.WorkBooks.Open(\"Open。txt\")
＞myoleobject.application.workbooks(1).saveas(\"Save.xsl\")
＞
＞コード名も全部数字化になってしまい、例え\'001\'も\'1\'のようになります。
＞どうすれば\'001\'のようにそのままSaveできますか。
＞教えて頂きませんでしょうか
＞
＞PB 8.0
＞Win XP
＞IBM PC

Microsoft Excel は、数値に見える文字列は勝手に数値にしてしまいます。
ですから、\'001\' を \'1\' にしないためには、「この列は文字列にして」と指定しなければ
なりません。
そこで、WorkBooks.Open(\"Open.txt\") を次のように書き換えてみてください。
この構文は、Open.txt がタブ区切りのテキストファイルで、フィールド (列) 数は 5 つ、
そのうち 3 番目のフィールドを 1: 標準から 2: 文字列する、という場合の具体例です。

Workbooks.OpenText Filename:=\"Open.txt\", _
    Origin:=932, _
    StartRow:=1, _
    DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, _
    ConsecutiveDelimiter:=False, _
    Tab:=True, _
    Semicolon:=False, _
    Comma:=False, _
    Space:=False, _
    Other:=False, _
    FieldInfo:=Array(Array(1, 1), _
                     Array(2, 1), _
                     Array(3, 2), _
                     Array(4, 1), _
                     Array(5, 1)), _
    TrailingMinusNumbers:=True