سلام دوستان
دار م یه برنامه مینویسم که :
- ابتدا فایل تکست را توسط CommandButton بصورت Browse دریافت کنه
- اون فایل تکست دریافتی را به یک فایل اکسل تبدیل کنه
حالا من، تونستم قسمت شماره 2 را بصورت کامل انجام بدم منتهی توی این کدی که نوشتم، آدرس فایل تکست ثابته که من میخوام هر فایل تکست دلخواهی را Browse کنم و تبدیل به یه فایل اکسل بشه.
اینم از کدهای نوشته شده:
http://s3.picofile.com/file/8190344642/New_Text_Document.txt.html
این کلید همون قسمت 2 را انجام میده ولی ایرادش اینه که آدرس فایل تکست ثابته
Private Sub Command1_Click()
Dim objUser, strExcelPath, objExcel, objSheet, objFSO, objFile, aline, aLines, irow, icol
Const ForReading = 1
Set objFSO = CreateObject(\"Scripting.FileSystemObject\")
آدرس فایل تکست
Set objFile = objFSO.OpenTextFile(\"C:1.txt\", ForReading)
strExcelPath = \"C:\\testing.xls\"
\' Bind to Excel object.
\'On Error Resume Next
Set objExcel = CreateObject(\"Excel.Application\")
If (Err.Number 0) Then
On Error GoTo 0
Wscript.Echo \"Excel application not found.\"
Wscript.Quit
End If
On Error GoTo 0
objExcel.Visible = True
objExcel.Workbooks.Add
Set objSheet = objExcel.ActiveWorkbook.Worksheets(1)
objSheet.Name = \"testing\"
aLines = Split(objFile.ReadAll, vbNewLine)
For irow = 1 To UBound(aLines) + 1
aline = Split(aLines(irow - 1), \",\")
For icol = 1 To UBound(aline) + 1
objSheet.Cells(irow, icol).Value = aline(icol - 1)
Next \' icol
Next \' irow
End Sub
توی این کلید هم آدرس فایل تکست قراره وارد بشه و بعدا در کلید بالایی مورد استفاده بشه جهت تبدیل به فایل اکسل
Private Sub Command2_Click()
CommonDialog1.Filter = \"All files (*.*)|*.*\"
CommonDialog1.DialogTitle = \"Select File\"
CommonDialog1.ShowOpen
MsgBox CommonDialog1.FileName
End Sub
Private Sub Form_Load()
End Sub
ضمنا از ویژوال بیسیک 6 استفاده می کنم
چطور میتونم فایل برنامه را Attach کنم؟
آخه الان برنامه چپ به راست نیومده