如何为每个工作表（VBA）中的每一行创建文件夹和csv文件

Question

我有一本excel工作簿。在这本工作簿中，我有3个工作表，由＆＃34; First＆＃34;，＃34; second＆＃34;和＃34;第三＆＃34;。每张纸都有4列，例如Date X1，X2，Oneletter。我试图运行VBA程序但我不知道。以下是我想要做的事情：

首先，我想创建3个按工作表名称命名的文件夹。

其次，我想在每个文件夹中创建一些csv文件。每个csv中都有一行和一列。每个csv文件的内容是此工作表中每行的内容，例如＆＃34; 01012000,1,2，A＆＃34;。

最后，我想将每个文件保存为日期和字母的组合，例如＆＃34; A_07012001.csv＆＃34;。

Dataframework：

   Date         X1    X2    OneLetter

  01/01/2000    10    20       A

  01/01/2001    20    20       B

  01/01/2002    30    30       C

  01/01/2003    40    50       D