Excelについて教えてください。 帳票データがあります。 アクセスに取り込むため、 データ形式にし

Excelについて教えてください。
帳票データがあります。
アクセスに取り込むため、
データ形式にしたいです。

帳票のデータ
例えば、A5セルに、東京株式会社
B5セルに、6/20
C3セルに、鈴木
E2セルに、0120-0-00
とあった場合、
これをデータ型に変えたいです。

コンマはセルの区切りとしてください。
1行目に、会社、日付、名前、連絡先
2行目に、東京株式会社、6/20、鈴木、0120-0-00
とし、デスクトップにcsvとして抽出させたいのですが、どのようにマクロ？VBAを作成したらよいか教えてください。
申し訳ないですが、初心者のため、
1から教えていただきたいです。

質問者からの補足コメント

• 

  リンクだとリンクのExcelを毎回開いて上書きしないと行けないので、マクロ？VBAを使用したいです。
  セルでの区切りじゃなくてもカンマ区切りでもよいです。お願いします。

    補足日時：2022/06/08 20:03

• ありがとうございます。
  デスクトップに保存するときの
  ファイル名を帳票形式のデータと
  同じ名前にするときは、
  どうなりますか？

    補足日時：2022/06/08 21:00

No.1 回答者： Qchan1962 回答日時： 2022/06/08 20:46

＞1から教えていただきたいです。

ごめんなさい。勘弁して・・・（本音）

良く分からないけれど・・
csvをべたに出力するとこんな感じかな・・
Sub Sample()
Dim output_file As String
output_file = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\Sample.csv"
With CreateObject("ADODB.Stream")
.Charset = "UTF-8"
.Open
.WriteText "会社,日付,名前, 連絡先", 1
.WriteText Range("A5") & "," & Range("B5") & "," & Range("C3") & "," & Range("E2"), 1
.SaveToFile output_file, 2
.Close
End With
End Sub

飛びセルでなければループで文字列作るのだけれど・・・
文字コード　"UTF-8"　としたけれど使う先に合わせてください
サンプルがあれば、後は調べられると思いますので悪しからず