CSVからExcelに変換時に「○/○」のようなデータが日付変換され「○月○日」となる

Question

実現したいこと

CSVからExcelに変換時に「○/○」のようなデータが日付変換されず「○/○」のまま変換したい

発生している問題・分からないこと

■前提
vbsでcsvからExcelに変換している

■実現したいこと
特定ファイルの特定の列に「1/2」のようなデータが入るので、それをExcel変換時も「1/2」と変換したい。

該当のソースコード

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = False
objExcel.DisplayAlerts = False

' カレントディレクトリ内のすべてのCSVファイルを取得
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set folder = objFSO.GetFolder(".")
bkFolderPath = objFSO.BuildPath(folder.Path, "bk")

' "bk" フォルダが存在しない場合は作成
If Not objFSO.FolderExists(bkFolderPath) Then
    objFSO.CreateFolder(bkFolderPath)
End If

For Each file In folder.Files
    If LCase(objFSO.GetExtensionName(file.Name)) = "csv" Then
        ' CSVファイルを開く
        Set objWorkbook = objExcel.Workbooks.Open(file.Path)
        ' Excelファイルとして保存
        objWorkbook.SaveAs objFSO.BuildPath(folder.Path, objFSO.GetBaseName(file.Name) & ".xlsx"), 51
        objWorkbook.Close

        ' CSVファイルを "bk" フォルダに移動
        objFSO.MoveFile file.Path, objFSO.BuildPath(bkFolderPath, file.Name)
    End If
Next

objExcel.Quit

試したこと・調べたこと

• teratailやGoogle等で検索した
• ソースコードを自分なりに変更した
• 知人に聞いた
• その他

上記の詳細・結果

今のところ特にありません。

補足

特になし

Answer 1

すベてのデータを文字列として処理していいなら比較的簡単に出来ますが
どのセルに◯/◯が現れるかわからず、対象だけを文字列にしたいというのだとちょっと難しいです。

「ActiveSheet.QueryTables.Add」メニューでいうと「データ→テキストファイル」で空のワークシートにテキストを取り込むのが手っ取り早いです

もしくはcsvファイル自体を拡張していいなら

"a",123,"1/1"
"b",456,="2/2"

のようなデータのもたせ方をすると
1行目の1/1は1月1日になってしまいますが、2行目の2/2は「2/2」で表示されます

Comments

[t_tokyo]

ありがとうございます。
対象ファイルは1つだけなので、自動で変換はしたいですが以下の手順で手動でExcelに変換することにします。

>データ→テキストファイル」で空のワークシートにテキストを取り込むのが手っ取り早いです

[xail2222]

「特定ファイルの特定の列」という事だから、対処できるのでは？