tempali
یک شنبه 27 آذر 1390, 15:42 عصر
سلام
وقتی من از گزارشم خروجی می گیرم یک فایل اکسل در مسیر مشخص شده درست می کنه که داخلش هیچی نیست.
With OnHand_report
.DataControl1.ConnectionString = Cnn
.DataControl1.Source = strQuery
.DataControl1.Refresh
.DataControl1.CommandTimeout = 30
Dim oXls As ARExportExcel
Set oXls = New ARExportExcel
oXls.FileName = "c:\147.xls" 'InputBox("enter path")
.Export oXls
End With
وقتی من از گزارشم خروجی می گیرم یک فایل اکسل در مسیر مشخص شده درست می کنه که داخلش هیچی نیست.
With OnHand_report
.DataControl1.ConnectionString = Cnn
.DataControl1.Source = strQuery
.DataControl1.Refresh
.DataControl1.CommandTimeout = 30
Dim oXls As ARExportExcel
Set oXls = New ARExportExcel
oXls.FileName = "c:\147.xls" 'InputBox("enter path")
.Export oXls
End With