Chào các Anh chị GPE,
Em có 1 file excel , trong đó sheet" data2" - cơ sở dữ liêu nhà thầu,
sheet" locdata2" là rút trích = SQL để lấy data2 sang voi cac điều kiện,
Em đã làm xong nhưng khi chép sang may khác, khác dường dẫn thì không chạy, ;phai vào code sửa lại mất thời gian,
em biết 1 phương thức : ThisWorkbook.Path để gán vào cho nó nhận tự động đường dẫn, nhưng làm mãi cứ báo lỗi,
nhờ các anh chi thay thế hộ trong đoạn code dưới đây :
Đoạn màu đỏ ấy - em muốn thay = phương thức "ThisWorkbook.Path" - mong các anh chị giú đỡ, em gửi file kèm theo
Xin cảm ơn,/.
Ngoctoan
Em có 1 file excel , trong đó sheet" data2" - cơ sở dữ liêu nhà thầu,
sheet" locdata2" là rút trích = SQL để lấy data2 sang voi cac điều kiện,
PHP:
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 10/11/2011 by viet-nh
'
' Keyboard Shortcut: Ctrl+t
'
ActiveWorkbook.SaveAs Filename:="D:\tuyet\loc_du_lieu_nha_thau.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DSN=Excel Files;DBQ=D:\tuyet\loc_du_lieu_nha_thau.xls;DefaultDir=D:\tuyet;DriverId=790;MaxBufferSize=2048;PageTimeout=5;" _
, Destination:=Range("A2"))
.CommandText = Array( _
"SELECT data2.nhathau, data2.ma1, data2.Date, data2.`D#No`, data2.`Ref#`, data2.Description, data2.Currency, data2.tygia, data2.tienUSD_invoice, data2.tienVND_invoice, data2.ma_Proj, data2.ngay_TT, dat" _
, _
"a2.Tien_USD, data2.cong_no_conlai, data2.Tien_VND" & Chr(13) & "" & Chr(10) & "FROM `D:\tuyet\loc_du_lieu_nha_thau`.data2 data2" & Chr(13) & "" & Chr(10) & "WHERE (data2.ma_Proj Like 'PD%') AND (data2.ngay_TT>={ts '2011-01-01 00:00:00'}) OR (data2.ma_Proj " _
, "Like 'IC%') AND (data2.ngay_TT>={ts '2011-01-01 00:00:00'})")
.Name = "Query from Excel Files"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
End SubEm đã làm xong nhưng khi chép sang may khác, khác dường dẫn thì không chạy, ;phai vào code sửa lại mất thời gian,
em biết 1 phương thức : ThisWorkbook.Path để gán vào cho nó nhận tự động đường dẫn, nhưng làm mãi cứ báo lỗi,
nhờ các anh chi thay thế hộ trong đoạn code dưới đây :
Đoạn màu đỏ ấy - em muốn thay = phương thức "ThisWorkbook.Path" - mong các anh chị giú đỡ, em gửi file kèm theo
Xin cảm ơn,/.
Ngoctoan
Chỉnh sửa lần cuối bởi điều hành viên:
