質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

88.06%

バージョンによってエラー13が提示される

受付中

回答 0

投稿

  • 評価
  • クリップ 2
  • VIEW 1,295

score 22

お世話になります。
以下のtab区切りテキストファイルをcsvに変換し、それらを結合するファイルですが、
開発環境によってエラーが提示されてしまいます。
まだ書きかけのコードで、端末A (Microsoft Excel 2013 15.0.4953.1000 MSO (15.0.4953.1000) 32bit)では実行が個別のcsvファイルの出力で止まり、端末B(Microsoft Excel for Office 365 MSO 16.0.11629.20238 32bit)ではdir関数のところで「実行時エラー13;型が一致しません」を提示します。
最終的な実行環境は端末Bです。

発生している原因が何か、どなたかお教えいただけますでしょうか。よろしくお願いいたします。

 Sub table_to_merged_csv()

Dim table_name As String
Dim myfile As Variant
Dim target As Variant
Dim name As String, wpath As String

    myfile = Application.GetOpenFilename( _
         FileFilter:="table  ファイル (*.Table),*.Table", _
         MultiSelect:=True)


If IsArray(myfile) Then

Application.ScreenUpdating = False

For Each target In myfile
 Workbooks.OpenText Filename:=target, DataType:=xlDelimited, Comma:=True
 table_name = ActiveWorkbook.name
 table_name = Left(table_name, Len(table_name) - 6)
 table_name = table_name & ".csv"
 ActiveSheet.Range("A1").CurrentRegion.EntireColumn.AutoFit
 ActiveWorkbook.SaveAs Filename:=table_name, FileFormat:=xlCSV
 Workbooks(table_name).Close True
name = Dir(target)
wpath = Replace(target, name, "")
Next target

 Debug.Print (wpath)

wfile = Dir(wpath & "\")
Debug.Print (wfile)
flag = 0
Do While wfile <> ""
If InStr(wfile, ".csv") Then
flag = flag + 1
If flag = 1 Then
FileCopy wpath & "\" & wfile, ThisWorkbook.Path & "output.csv"
Open ThisWorkbook.Path & "output.csv" For Output As #1
Close #1
End If
Open ThisWorkbook.Path & "output.csv" For Append As #1
Open wpath & "\" & wfile For Input As #2
Do Until EOF(2)
Line Input #2, w_str
Print #1, w_str
Loop
Close #2
Close #1
End If
wfile = Dir()
Loop

Kill wpath & "*.csv"

Application.ScreenUpdating = True

End If

End Sub
  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 過去に投稿した質問と同じ内容の質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

質問への追記・修正の依頼

  • asahina1979

    2019/06/24 21:29

    デバックして結果は?

    キャンセル

  • TanakaHiroaki

    2019/06/24 21:55

    前の質問において指摘させていただいた下記の文法誤りが修正されていないのが気になります。
    ステップイン実行し、動作の違いをご自身で確認してみてください。
    wfile = Dir(wpath & "\" & ”*.csv”)
    ’wfile = Dir(wpath & "\")

    If InStr(wfile, ".csv") > 0 Then
    'If InStr(wfile, ".csv") Then

    FileCopy wpath & "\" & wfile, ThisWorkbook.Path & "\" & "output.csv"
    'FileCopy wpath & "\" & wfile, ThisWorkbook.Path & "output.csv"

    キャンセル

まだ回答がついていません

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 88.06%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

同じタグがついた質問を見る