Excel VBA質問箱 IV

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

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


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

76072 / 76732

←次へ　｜　前へ→


	【5085】頭文字"0"の出力方法

jin - 03/4/21(月) 20:40 -


	引用なし

	パスワード

こんにちわ
いつも参考にさせてもらっています。

タブ区切りでCSV出力をしようと思っていますが、頭文字が"0"の文字列がうまく出力することができません。
コードは以下に記述。
いちおう文字列として出力してはいるのですが、出力ファイルをひらくと頭文字の"0"が消えてしまっています.

このCSVを後にDBに入れるという作業を行いたいので、この頭文字が"0"のコードである必要があります。

どうか何か参考意見がありましたら、教えてください。
宜しくお願いします。

For　introw 1 To 15
　 strOutData(1) = objSh_No15.Cells(introw, "A")
　 strOutData(2) = CStr(Val(objSh_No15.Cells(introw, "E") & ""))
　 strOutData(3) = CStr(Val(objSh_No15.Cells(introw, "F") & ""))

　　　・
　　　・

Next

Print#～～～

※ObjSh_No15は"シート１５"というようにオブジェクトをセットしています。

1 hits

▼

【5085】頭文字"0"の出力方法 jin 03/4/21(月) 20:40

≪