PDA

View Full Version : تبدیل فایل متنی به Excel



@AM!R!
چهارشنبه 10 بهمن 1386, 23:44 عصر
سلام دوستان
آیا راهی هست که مستقیما یک فایل متنی را مستقیما به فایل Excel تبدیل کرد
یعنی اطلاعات رو به بانک نفرستیم.
اطلاعات فایل متنی با کاراکتر "," از هم جدا شدند
ممنون

ali_habibi1384
پنج شنبه 11 بهمن 1386, 12:21 عصر
اگه شما دنبال یه راهی هستی که کد ننویسی نه همچین چیزی امکان نداره برنامه از کجا باید بفهمه که کدوم فیلد رو اول بذاره و یا نام ستون چیه؟ بنظر خودت همچین کاری شدنیه؟
اما یه کار می تونی بکنی که جدول اکسل رو خودت درست کنی و با برنامه نویسی و یه مرتبط کننده داده اطلاعات رو خط به خط از فایل بخونی و توی اکسل بنویسی.

@AM!R!
پنج شنبه 11 بهمن 1386, 22:10 عصر
از توجه تون ممنون
من موقعی که می خواهم با کد زیر عمل ایجاد فایل xls. رو انجام بدهم یک پیغام خطا ظاهر مشه؟
علت چیه؟


Dim Wb1 As Excel.Workbook
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
.
.
.
Set xlApp = New Excel.Application
'xlApp.Visible = False
If xlApp.Workbooks.Count = 0 Then
Set xlBook = xlApp.Workbooks.Add
Else
Set xlBook = xlApp.Workbooks(0)
End If
If xlBook.Sheets.Count = 0 Then
Set xlSheet = xlBook.Worksheets.Add
Else
Set xlSheet = xlBook.Sheets(1)
End If
If FileName = "" Then FileName = xlApp.GetSaveAsFilename
xlBook.SaveAs FileName
.
.
.


البته خطا از خط زیر :


Set xlApp = New Excel.Application

وپیغام خطا:
Class does not support Automation or does not support expected interface

__siavash__
پنج شنبه 11 بهمن 1386, 23:31 عصر
البته خطا از خط زیر :

کد:
Set xlApp = New Excel.Application
وپیغام خطا:
Class does not support Automation or does not support expected interface

من تست میکنم این جا خطا نمیده !

@AM!R!
جمعه 12 بهمن 1386, 21:00 عصر
این فایل متنی در یک نرم افزار تحت DOS ایجاد شده محتوای آن را می توان با NC در dos بدون مشکل با کلید F3 دید.
ولی وقتی آن را در XP با Notepad باز می کنم تمام کاراکترها بجز اعداد به هم ریختن
فایل رو با فورمت های مختلف ذخیره کردم ولی بازم جواب نمی ده