VBA Makro保存为csv

Question

我想编写一个VBA makro来将选定的Excel工作表保存为csv文件。我收集到了什么：

Dim WS As Excel.Worksheet
Dim SaveToDirectory As String

Dim CurrentWorkbook As String
Dim CurrentFormat As Long

CurrentWorkbook = ThisWorkbook.FullName
CurrentFormat = ThisWorkbook.FileFormat

  SaveToDirectory = "G:\...\Create csv\" & Format(Date, "YYYYMMDD") & "_csv Save" & "\"

  If Len(Dir(SaveToDirectory, vbDirectory)) = 0 Then
    MkDir SaveToDirectory
  End If

  For Each WS In ThisWorkbook.Worksheets
    If WS.Name = "Government_debt" Or WS.Name = "Domestic_demand" Or (...) Then
        WS.SaveAs SaveToDirectory & WS.Name, xlCSV
    End If
  Next

我需要完成什么？

1. 我需要在日期之后的时间，以防我需要每天运行两次makro。 "YYYYMMDDHHMM"解决方案为我提供了201504280000
2. 我想以这种方式创建目录，它是makro所在文件的文件夹。我已经尝试CurDir()和Application.ActiveWorkbook.Path，但没有成功
3. 我想排除一些excel表，而不是只选择要保存的表。例如，我有一些表格＆＃34; calc _（...）＆＃34;我不需要。我怎么能这样做。

提前致谢！