اجرای فایل bat از طریق اکسل

**iranweld** · 2021/10/06, 12:20

با سلام

برای اجرای یک فایل در محیط اکسل دستور shell را مطالعه کنید

shell

**gha3emi** · 2021/10/09, 10:47

با سلام
در کپی از مبدا ثابت به مقصد ثابت مشکل وجود نداره ولی وقتی مقصد لازمه که هر روز بر اساس تاریخ روز جاری عوض بشه تابع jtoday را به خاطر علامت " " جز، ثابت آدرس مقصد در نظر گرفته میشه

Dim sSourceFile As String
Dim sDestinationFile As String

"sSourceFile = "C:\1.txt
' " sDestinationFile = "D:"&"jtoday\1.txt'
" sDestinationFile = "D:\14000716\1.txt
FileCopy sSourceFile, sDestinationFile

**iranweld** · 2021/10/09, 12:13

نوشته اصلی توسط gha3emi

با سلام
در کپی از مبدا ثابت به مقصد ثابت مشکل وجود نداره ولی وقتی مقصد لازمه که هر روز بر اساس تاریخ روز جاری عوض بشه تابع jtoday را به خاطر علامت " " جز، ثابت آدرس مقصد در نظر گرفته میشه

Dim sSourceFile As String
Dim sDestinationFile As String

"sSourceFile = "C:\1.txt
' " sDestinationFile = "D:"&"jtoday\1.txt'
" sDestinationFile = "D:\14000716\1.txt
FileCopy sSourceFile, sDestinationFile

تاریخ را بدین صورت استخراج کنید

**gha3emi** · 2021/10/10, 09:13

ببخشید که خیلی مزاحم میشم بعد از اجرای دستور زیر به جای اینکه در هنگام اجرای فایل b.bat خط فرمان cmd از همان آدرس D:\Space_Linux\Mchn\receive_B استفاده کند از مسیر c:\admin\document اجرای میشه (برای من مهمه که از همون مسیر درایو d و پوشه اصلی فایل bat ، خونده بشه چون داخل فایل bat یک فایل txt فراخوانی میشه که در درایو d و پوشه ای که روزانه از طریق xx ساخته میشه قرار میگیره و با اون فایلها به سرور دیگه ای ftp میشن)
به صورت خلاصه در هنگام فراخوانی فایل bat آدرس command prompt این باشه D:\Space_Linux\Mchn\receive_B\14000718

If Range("b22").Value = 21 And Range("b23").Value = 0 Then
Dim RetVal
RetVal = Shell("D:\Space_Linux\Mchn\receive_B" & xx & "\ b.bat", 1)
Range("b23").Value = 1
End If

**iranweld** · 2021/10/10, 09:19

نوشته اصلی توسط gha3emi

ببخشید که خیلی مزاحم میشم بعد از اجرای دستور زیر به جای اینکه در هنگام اجرای فایل b.bat خط فرمان cmd از همان آدرس D:\Space_Linux\Mchn\receive_B استفاده کند از مسیر c:\admin\document اجرای میشه (برای من مهمه که از همون مسیر درایو d و پوشه اصلی فایل bat ، خونده بشه چون داخل فایل bat یک فایل txt فراخوانی میشه که در درایو d و پوشه ای که روزانه از طریق xx ساخته میشه قرار میگیره و با اون فایلها به سرور دیگه ای ftp میشن)
به صورت خلاصه در هنگام فراخوانی فایل bat آدرس command prompt این باشه D:\Space_Linux\Mchn\receive_B\14000718

If Range("b22").Value = 21 And Range("b23").Value = 0 Then
Dim RetVal
RetVal = Shell("D:\Space_Linux\Mchn\receive_B" & xx & "\ b.bat", 1)
Range("b23").Value = 1
End If

لطفا نمونه فایل اکسل و فایل bat را ضمیمه کنید تا بررسی شود