amiralex
شنبه 18 مهر 1394, 13:05 عصر
با سلام
من یه FlexGrid دارم که با این کد میتونم یه فایل اکسل و نشون بدم
With CommonDialog1
.FileName = ""
.CancelError = False
.DialogTitle = "Select Files"
.Filter = "*.xls|*.xls"
.ShowOpen
VSFlexGrid2.LoadGrid .FileName, flexFileExcel
End With
اما اگر بخوام چند فایل اکسل و تو همون FlexGrid نشون بدم چی کار کنم؟؟
من این کد و پیدا کردم اما جواب نمیده
Dim vFiles As Variant
Dim lFile As Variant
With CommonDialog1
.FileName = ""
.CancelError = False
.DialogTitle = "Select Files"
.Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer Or cdlOFNHideReadOnly
.Filter = "*.xls|*.xls"
.ShowOpen
vFiles = Split(.FileName, Chr(0), flexFileExcel)
txtmasir = .FileName
For lFile = 1 To UBound(vFiles)
VSFlexGrid2.LoadGrid vFiles(0) + "\" & vFiles(lFile), flexFileExcel
Next lFile
End With
ممنون میشم زودتر جواب بدید
من یه FlexGrid دارم که با این کد میتونم یه فایل اکسل و نشون بدم
With CommonDialog1
.FileName = ""
.CancelError = False
.DialogTitle = "Select Files"
.Filter = "*.xls|*.xls"
.ShowOpen
VSFlexGrid2.LoadGrid .FileName, flexFileExcel
End With
اما اگر بخوام چند فایل اکسل و تو همون FlexGrid نشون بدم چی کار کنم؟؟
من این کد و پیدا کردم اما جواب نمیده
Dim vFiles As Variant
Dim lFile As Variant
With CommonDialog1
.FileName = ""
.CancelError = False
.DialogTitle = "Select Files"
.Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer Or cdlOFNHideReadOnly
.Filter = "*.xls|*.xls"
.ShowOpen
vFiles = Split(.FileName, Chr(0), flexFileExcel)
txtmasir = .FileName
For lFile = 1 To UBound(vFiles)
VSFlexGrid2.LoadGrid vFiles(0) + "\" & vFiles(lFile), flexFileExcel
Next lFile
End With
ممنون میشم زودتر جواب بدید