ভিবিএতে রফতানির সময় কাস্টম পাথ সেট করুন

Question

আমি আমার রফতানির জন্য এই পোস্টের গৃহীত উত্তরটি ব্যবহার করছি।

উত্তরের উপর ভিত্তি করে, এটি আমার রফতানি করা .csvফাইলটি আমার মধ্যে সংরক্ষণ করে C:\Users\username\AppData\Roaming\Microsoft\Excel\XLSTART।

যাইহোক, আমার এই ফাইলটি আমার অবস্থানের স্থানে রফতানি দরকার, যেখানে আমি ডেটা রফতানি করছি। এটা করা উচিতC:\Users\username\Desktop\Sample_Files\Excel_to_csv_export

আমি উত্তরের উপর ভিত্তি করে নিম্নলিখিতটি চেষ্টা করেছি:

Sub ExportTable()

    Dim wb As Workbook, wbNew As Workbook
    Dim ws As Worksheet, wsNew As Worksheet
    Dim wbNewName As String


   Set wb = ThisWorkbook
   Set ws = ActiveSheet

   Set wbNew = Workbooks.Add

   'I set the path below, which did not work
   Set Path = 'C:\Users\username\Desktop\Sample_Files\Excel_to_csv_export'

   With wbNew
       Set wsNew = wbNew.Sheets("Sheet1")
       wbNewName = ws.ListObjects(1).Name
       ws.ListObjects(1).Range.Copy
       wsNew.Range("A1").PasteSpecial Paste:=xlPasteAll
       .SaveAs Filename:=wb.Path & "\" & wbNewName & ".csv", _
             FileFormat:=xlCSVMSDOS, CreateBackup:=False
   End With

End Sub

আমি কীভাবে আমার পছন্দসই পথে যাত্রা করতে পারি? যেকোনো সাহায্যই অসাধারণ!

Comments

আপনি ঘোষণা করেন নি Path। Dim Path as StringSetSet Path = ...

— 19-22 এ

@ ডেভিডপস্টিল a কিছুক্ষণ অনুসন্ধান করার পরে আমি এই পোস্টটি পেয়েছি । আমি যোগ করেছি .SaveAs Filename: "C:\Users\username\Desktop\Sample_Files\Excel_to_csv_export.csv"এবং এটি রফতানি করে তবে আমাকে নিজেই সংরক্ষণ করতে হবে। কোনও ধারণা কেন এটি স্বয়ংক্রিয়ভাবে সঞ্চয় হচ্ছে না?

— user9431057

আপনার ইন্টারনেট থেকে এলোমেলো স্নিপেট ব্যবহার করে কোড লেখার চেষ্টা করার পরিবর্তে ভিবিএ শিখতে কিছুটা সময় ব্যয় করা উচিত।

— ডেভিডপস্টিল

@ ডেভিডপস্টিল একমত হয়েছেন, আমি ভিবিএতে নতুন এবং আমি নিজেই স্বয়ংক্রিয়ভাবে কাজ করার জন্য যে কাজটি ভাবছিলাম তার মধ্যে এটি একটি। আমি আজ থেকে শিখতে শুরু করেছি।

— ব্যবহারকারী 9431057

ওয়ার্কবুক.স্যাভ মেথড (এক্সেল)

— ডেভিডপস্টিল