misammisam
2015/02/04, 21:06
با سلام
با کد زیر میتونید به راحتی محدوده ای رو سلکت کنید و مقادیر داخل اون سلولهارو به یک فایل txt در مسیر C:\MyFile.tx ذخیره میکند .
Sub SaveToTextFile()
Open "C:\MyFile.txt" For Output As #1
For Each C In Selection
Print #1, C.Value
Next C
Close #1
End Sub
با کد زیر میتونید به راحتی محدوده ای رو سلکت کنید و مقادیر داخل اون سلولهارو به یک فایل txt در مسیر C:\MyFile.tx ذخیره میکند .
Sub SaveToTextFile()
Open "C:\MyFile.txt" For Output As #1
For Each C In Selection
Print #1, C.Value
Next C
Close #1
End Sub