एक्सेल शीट को CSV में निर्यात करना - लेकिन पहले 10 पंक्तियों को छोड़ दें

-2

[! [पीले रंग की चादरें मैं निर्यात करते समय अनदेखा करना चाहता हूं, वेव्स कमांड पहली 10 पंक्ति हटाता है लेकिन vba स्क्रिप्ट अभी भी सभी शीटों को CSV के रूप में निर्यात करता है जो मुझे नहीं चाहिए, सभी शीटों में डेटा है उन्हें। मैंने स्प्रैडशीट को संलग्न किया है, पहला पृष्ठ इंडेक्स है, बोतल के नीचे आपको शीट दिखाई देगी, साथ में प्राइस ओवरनाइट।

Sub ExportCSV()

Application.DisplayAlerts = False
ActiveWorkbook.Save

Dim ws As Worksheet
Dim path As String

path = ActiveWorkbook.path & "\" & Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, ".") - 1)

    For Each ws In ActiveWorkbook.Worksheets
        ws.Rows("1:10").Delete
        If ws.Name <> "Document Control" And ws.Name <> "Index sheet" Then           
            'With ws
                ws.SaveAs filename:=path & "_" & ws.Name & ".csv", FileFormat:=xlCSV, CreateBackup:=False
            'End With
        End If
    Next ws
Application.DisplayAlerts = True
End Sub

microsoft-excel vba

— Hajduk1908
स्रोत

अब यह बहुत स्पष्ट नहीं है कि आप क्या चाहते हैं, क्या आप पंक्तियों या चादरों को बाहर करना चाहते हैं? "प्राइस ओवरनाइट के साथ क्या है?" कृपया स्क्रीनशॉट जोड़ें और स्पष्ट करें कि आप वास्तव में क्या चाहते हैं।

— माते जुहेज़

ओके सॉरी अगर यह भ्रामक है, तो इसकी चादरें। इस स्प्रेडशीट में 20 शीट हैं, जिनमें सभी डेटा हैं, रात भर में Accom Price 1 शीट है, जो पेज आप देख रहे हैं वह शीट इंडेक्स है, नीचे फैली शीट के नीचे आपको टैब दिखाई देंगे, TAB (शीट में डेटा है) )। जब मैं निर्यात करता हूं तो मैं पहली 10 शीटों को बाहर करना चाहता हूं लेकिन मैं चाहता हूं कि जो शेष है उसका निर्यात करना चाहता हूं।

— हजदुक

आप केवल एक शीट का हिस्सा नहीं बचा सकते हैं। निर्यात करने से पहले आपको उस सीमा को हटाने की आवश्यकता है जिसकी आपको आवश्यकता नहीं है।
जैसा कि आपने मूल कार्यपुस्तिका को सहेजा है, आप डेटा को ढीला नहीं करेंगे।

ws.Rows("1:10").Delete

— माते जुहेस
स्रोत

उस के लिए धन्यवाद, लेकिन मुझे लगता है कि मैं कमांड CSV

— Hajduk1908

मैं "कोड से चूक गया हूं , अब यह ठीक होना चाहिए।

— माते जुहेज़

धन्यवाद हालांकि, यह अभी भी पहली 10 पंक्तियों को निर्यात कर रहा है जो कि शीट इंडेक्स में टेबल फ़ोल्डर्स के लिए हैं जहां मैं शीट इंडेक्स में पहली 10 पंक्तियों के टेबल को बाहर करना चाहूंगा।

— हजदुक

सब ExportCSV () Application.DisplayAlerts = झूठी ActiveWorkbook.Save डिम String पथ के रूप में कार्यपत्रक मंद पथ = ActiveWorkbook.path और "\" & Left (ActiveWorkbook.Name, InStr (ActiveWorkbook.Name, ")") - 1) के लिए 1)। ActiveWorkbook.Worksheets ws.Rows ("1:10") में प्रत्येक ws। हटाएं यदि ws.Name <> "दस्तावेज़ नियंत्रण" और ws.Name <> "इंडेक्स शीट" तो ws के साथ 'ss .ave फ़ाइल का नाम: = पथ & "_" और ws.Name & ".csv", FileFormat: = xlCSV, CreateBackup: = गलत अंत 'के साथ अंत यदि

— Hajduk1908

"शीट इंडेक्स में टेबल" से आपका क्या तात्पर्य है, क्या आप कुछ स्क्रीनशॉट / नमूना फाइल पोस्ट कर सकते हैं? क्या यह सही ढंग से काम करता है यदि आप गतिविधि को मैन्युअल रूप से करते हैं (पंक्तियों को हटाएं और सीएसवी को निर्यात करें)?

— माते जुहेस