वीबीए का उपयोग कर सेमी-कॉलन सीमांकित सीएसवी फ़ाइल को कैसे सहेजते हैं?

Question

हाल ही में मुझे कुछ डेटा को स्प्रेडशीट में कॉपी करने की आवश्यकता है, इसे प्रारूपित करने के लिए वीबीए का उपयोग करें, फिर उस शीट को CSV फ़ाइल में सहेजें। मैं निम्नलिखित कोड का उपयोग करता हूं:

ws.SaveAs Filename:=filestr, Fileformat:=xlCSV 

ws वर्कशीट जिसे मैंने सहेजा है।

यह मुझे एक अल्पविराम-सीमांकित सीएसवी फ़ाइल देगा।

हालांकि, मैं उस शीट को अर्धविराम-सीमांकित फ़ाइल में सहेजना चाहता हूं। मैं कुछ Googling किया है और निम्नलिखित समाधान पाया है:

1. > सेटिंग प्रारंभ> क्षेत्रीय और भाषा विकल्प कस्टमाइज़ करें बटन
2. अगला एक सेमी-कोलन (में सेपरेटर प्रकार सूची पर पर
3. क्लिक करें;)

मैं उपरोक्त प्रक्रिया का पालन किया है और करने के लिए अपने कोड बदल दिया है:

ws.SaveAs Filename:=filestr, Fileformat:=xlCSV, Local:=True 

लेकिन मैं stil मुझे आउटपुट के रूप में अल्पविराम-सीमांकित सीएसवी फ़ाइल मिली।

एक्सेल के संस्करण का उपयोग कर रहा हूँ Excel 2003 है और मेरे ओएस Windows XP

है

किसी VBA का उपयोग कर एक सेमी-कोलन सीमांकित फ़ाइल को बचाने के लिए सुझाव है कि सकता है? ActiveWorkbook.SaveAs "मेरे File.csv" xlCSV स्थानीय,,:: = सच

(का उपयोग नहीं करते: =: फ़ाइल का नाम) इस

Answer 1

बस इस कोड का उपयोग क्योंकि एक ही समस्या थी। इस मामले में फ़ाइल नाम की कोई कार्यक्षमता नहीं है।

यह वही मेरे लिए काम किया है:

With ActiveWorkbook 
    .SaveAs Filename:="My File.csv", FileFormat:=xlCSV, Local:=True 
    .Close False 
End With 

क्षेत्रीय सेटिंग्स में ->; < - सूची विभाजक के रूप में। बंद करना बंद होने पर परिवर्तनों को सहेजना भी महत्वपूर्ण नहीं है -> बंद करने के साथ आपको False का उपयोग करना होगा।

Answer 2

मैं सिर्फ देख लिया है

Answer 3

निर्माण के बाद vbs स्क्रिप्ट का उपयोग करने के लिए succeded:

।SaveAs फ़ाइल का नाम, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1

जहां तर्क हैं:

Object Filename, 
Object FileFormat, 
Object Password, 
Object WriteResPassword, 
Object ReadOnlyRecommended, 
Object CreateBackup, 
XlSaveAsAccessMode AccessMode, 
Object ConflictResolution, 
Object AddToMru, 
Object TextCodepage, 
Object TextVisualLayout, 
Object Local 

sourcelink: https://msdn.microsoft.com/ru-ru/library/microsoft.office.tools.excel.workbook.saveas.aspx

अंतिम "1" "SaveAs" में समारोह स्थानीय के बराबर = सच

भी है, अर्धविराम ओएस क्षेत्रीय सेटिंग्स में सूची विभाजक के रूप में (ऊपर जवाब देखें)

Answer 4

कोई ज़रूरत नहीं यह सब वर घोषित करने के लिए परिभाषित किया जाना चाहिए iables, बस स्थानीय जोड़ें: = अपने SaveAs विधि के अंत में सत्य, जैसे:

ActiveWorkbook.SaveAs Filename:="C:/Path/TryMe.csv", FileFormat:=xlCSV, Local:=True