پرسش اجرای کامند از طریق اکسل

[yogishiip]

سلام
نمیدونم این بخش انجمن مناسبیه برای این سوال یا نه ؟!
چه جوری میشه فایل bat یا یه سری کامند رو از طریق اکسل ران کنم و نتایج رو تو اکسل ببینم ؟
ساده تر بگم
چند خط فرمان دارم که باید روی سیستم اجرا کنم از جمله
ipconfig > c:\i.txt
که میاد و اطلاعات مربوطه به تنظیمات شبکه رو میبره تو درایو c:\i.txt ذخیره میکنه

من نیاز دارم که این فایل خروجی رو تو اکسل ایمپورت کنم .
امکانش هست که بجای کپی حمل یک فایل bat و ایمپورت کردن دستی که زمان میبره روش سریعتری از طریق اکسل بکار ببرم که خود فرمانها رو بدم به اکسل و خروجی رو هم خود اکسل نشون بده ؟یا خروجی رو از فایل متنی به صورت اتوماتیک ایمپورت کنه ؟

[Amir Ghasemiyan]

سلام
نمیدونم این بخش انجمن مناسبیه برای این سوال یا نه ؟!
چه جوری میشه فایل bat یا یه سری کامند رو از طریق اکسل ران کنم و نتایج رو تو اکسل ببینم ؟
ساده تر بگم
چند خط فرمان دارم که باید روی سیستم اجرا کنم از جمله
ipconfig > c:\i.txt
که میاد و اطلاعات مربوطه به تنظیمات شبکه رو میبره تو درایو c:\i.txt ذخیره میکنه

من نیاز دارم که این فایل خروجی رو تو اکسل ایمپورت کنم .
امکانش هست که بجای کپی حمل یک فایل bat و ایمپورت کردن دستی که زمان میبره روش سریعتری از طریق اکسل بکار ببرم که خود فرمانها رو بدم به اکسل و خروجی رو هم خود اکسل نشون بده ؟یا خروجی رو از فایل متنی به صورت اتوماتیک ایمپورت کنه ؟

سلام دوست عزیز
شما که خروجی txt دارین چرا bat میکنین؟ فایل txt رو مستقیما وارد اکسل کنید
وارد تب data بشید و در بخش get external data گزینه from text رو بزنین و مراحل رو طی کنید که ایمپورت بشه

[yogishiip]

مشکل اینه که خروجی باید اول ساخته بشه بعد ایمپورت بشه !
من میخوام فرایند اتوماتیک باشه و نیاز نباشه با دست برم ایمپورت کنم
به عبارت دیگه میخوام کامند رو تو اکسل ران کنم

[generalsamad]

با سلام
دستور داس رو نیز میخواید توی اکسل انجام بدید که لازم به ایجاد فایل bat نباشه یا میخواهید فایل bat رو داشته باشید وقتی اونو اجرا کردید فایل متنیتون ایجاد یا ویرایش بشه ؟
یا فقط عمل ایمپورت کردن فایل متنی رو میخواهید اکسل انجام بده نه بیشتر؟

[generalsamad]

این ماژول رو ببینید شاید کارتون رو راه بندازه

Sub Ping_Import()
    Call Shell("cmd.exe /s /k ipconfig >F:\ping.txt", vbHide)
    Dim wbI As Workbook, wbO As Workbook
    Dim wsI As Worksheet
    Set wbI = ThisWorkbook
    Set wsI = wbI.Sheets("Sheet1") 'sheeti ke mikhahid import dar an qarar begirad
    Set wbO = Workbooks.Open("F:\ping.txt")
    wbO.Sheets(1).Cells.Copy wsI.Cells
    wbO.Close SaveChanges:=False
End Sub 

کد پائین دستور پینگ رو اجرا کرده و در مسیر مربوطه فایل رو ذخیره میکنه

Call Shell("cmd.exe /s /k ipconfig >F:\ping.txt", vbHide) 

بقیه دستورات فایل متنی رو import میکنه