ส่งออกแต่ละชีตเป็นไฟล์ CSV แยกกัน

vbs เพื่อเรียกใช้โค้ดนี้จะมีลักษณะดังนี้ .

1. ไฟล์ vbs สามารถดำเนินการได้จาก commandline
2. ชื่อโฟลเดอร์ซ้ำซ้อนราวกับว่ามีไฟล์อยู่ (ออบเจ็กต์ FSO ทดสอบสิ่งนี้) ดังนั้นโฟลเดอร์ที่อยู่ภายในนั้นจะต้องมีอยู่ด้วย
3. รหัสจะทำให้ Excel แยกแผ่นงานโดยอัตโนมัติ

ประเด็นสำคัญสองประการที่ควรทราบเมื่อเปรียบเทียบกับ VBA ของคุณด้านบน

• คุณไม่สามารถหรี่วัตถุ vbs เป็นสตริง สมุดงาน ฯลฯ ได้ (ดังนั้นข้อผิดพลาดเริ่มต้นของคุณ) คุณสามารถหรี่แสงได้เท่านั้น

• คุณไม่สามารถใช้ค่าคงที่ที่มีชื่อเช่น xlCSV ใน vbscript ได้ ดังนั้นการใช้ 6 ด้านล่างเป็นรูปแบบ CSV

  Dim strFilename  
  Dim objFSO  
  Set objFSO = CreateObject("scripting.filesystemobject")  
  strFilename = "C:\temp\test.xlsx"  
  If objFSO.fileexists(strFilename) Then  
    Call Writefile(strFilename)  
  Else  
    wscript.echo "no such file!"  
  End If  
  Set objFSO = Nothing  
  
  Sub Writefile(ByVal strFilename)  
  Dim objExcel  
  Dim objWB  
  Dim objws  
  
  Set objExcel = CreateObject("Excel.Application")  
  Set objWB = objExcel.Workbooks.Open(strFilename)  
  
  For Each objws In objWB.Sheets  
    objws.Copy  
    objExcel.ActiveWorkbook.SaveAs objWB.Path & "\" & objws.Name & ".csv", 6  
    objExcel.ActiveWorkbook.Close False  
  Next 
  
  objWB.Close False  
  objExcel.Quit  
  Set objExcel = Nothing  
  End Sub  
  

เพื่อช่วยคุณเริ่มต้น:

รับสมุดงาน Excel ที่มีแผ่นงานสาธิตเช่น

-------------------------------
SELECT * FROM Demo
-------------------------------
|F1|F2 |F3        |F4        |
| 1|1.1|12/10/2011|text elm 1|
| 2|2.2|12/11/2011|text elm 2|
| 3|4.4|12/12/2011|text elm 3|
-------------------------------

และ ADODB.Connection ด้วย ConnectionString เช่น:

Provider=MSDASQL.1;Extended Properties="DBQ=<FullPathToYourXls>;Driver={Microsoft
 Excel Driver (*.xls)};

สิ่งที่คุณต้องมี .Execute คือคำสั่ง SELECT INTO เช่น

SELECT * INTO [Demo.csv] IN '<PathToYourCsvFolder>' 'Text;' FROM Demo

ที่จะได้รับ:

type ..\data\ExcelCsv2\Demo.csv
"F1";"F2";"F3";"F4"
1;1,10;10.12.2011 00:00:00;"text elm 1"
2;2,20;11.12.2011 00:00:00;"text elm 2"
3;4,40;12.12.2011 00:00:00;"text elm 3"

(ภาษาเยอรมัน)

คำสั่ง SELECT INTO จะสร้างส่วนที่เหมาะสม

[Demo.csv]
ColNameHeader=True
CharacterSet=1252
Format=Delimited(;)
Col1=F1 Integer
Col2=F2 Float
Col3=F3 Date
Col4=F4 Char Width 50

ในไฟล์ schema.ini โดยอัตโนมัติ