Nó thòng hình cuối mà ... Bài số 56 là câu chốt hạ phỏm
Bạn thử hỏi giúp GPT xem nếu đính kèm file Excel lên để nhờ làm hộ từ A đến Z thì GPT trả lời như thế nào nhé.
Câu trả lời của GPT nhé anh.
Chân thành cảm ơn bạn nhé.
www.businessinsider.com
Sub TrichLocKQ1()
Dim FilePath As String
' Use the Application.GetOpenFilename method to select a file
FilePath = Application.GetOpenFilename
' Check if the user cancelled the file selection
If FilePath = "False" Then
MsgBox "No file selected."
Exit Sub
End If
' Assign the file path to a variable
Dim SelectedFile As String
SelectedFile = FilePath
' Do something with the selected file
Dim strSQL As String
strSQL = "Select F2,F7,F8,F16,F20,F23,F24,F25,F28,F27,F30,F21,F39,F40 From [Sheet1$A2:XFD]"
With CreateObject("ADODB.Recordset")
.Open (strSQL), "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & FilePath & ";Extended Properties=""Excel 12.0 Xml;HDR=No;IMEX=1"""
Sheet2.Range("A2").CopyFromRecordset .DataSource
End With
MsgBox "Xong roi"Sub TrichLocKQ1_Mac()
Dim FilePath As String
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogOpen)
fd.Show
If fd.SelectedItems.Count = 0 Then
MsgBox "No file selected."
Exit Sub
End If
' Assign the file path to a variable
FilePath = fd.SelectedItems(1)
' Do something with the selected file
Dim strSQL As String
strSQL = "SELECT F2,F7,F8,F16,F20,F23,F24,F25,F28,F27,F30,F21,F39,F40 FROM [Sheet1$A2:XFD]"
Dim cn As Object
Set cn = CreateObject("ADODB.Connection")
With cn
.Provider = "Microsoft.ACE.OLEDB.12.0"
.ConnectionString = "Data Source=" & FilePath & ";Extended Properties=""Excel 12.0 Xml;HDR=No;IMEX=1"""
.Open
End With
Dim rs As Object
Set rs = CreateObject("ADODB.Recordset")
With rs
.ActiveConnection = cn
.Open strSQL
Sheet2.Range("A2").CopyFromRecordset .DataSource
.Close
End With
cn.Close
Set rs = Nothing
Set cn = Nothing
MsgBox "Done oi"
End SubQuá ổn.
Bạn có làm được hướng dẫn để mua không? Mình thấy đến cái bước thuê số điện thoại tốn kém quá.
thuê sms có 1$ thì cũng bằng cốc trà sữa, cf gì đó thôi chứ sao lại tốn kém quá, trong khi acc thì dùng được dài hạn
Cảm ơn nhé. Xem tua đến thuê + nước ngoài rồi tiếng Anh loằng ngoằng nên bỏ qua. Để tí thử xem, kèo này thơm đây.
Không hẳn là không khó chịu. Nếu người hỏi có biết sơ sơ, lấy code trả lời về bổ sung, hiệu chỉnh 10, 20% còn lại, hoặc ít nhất cũng tự kiểm tra lỗi thì coi như có học hỏi. Còn chat xong vác về trả lời ngay cho các chủ đề GPE thì khó chịu gấp đôi.
Bạn đã làm được TK chưa? Tôi trả phí 35k là có rồi. Khởi mất công mày mò, mệt.
Tôi thấy nó có ích trong việc tìm nhanh cú pháp, giải thuật khi viết code nên mới đăng ký chứ nói chuyện tào lao với nó thì hơi đâu
