Ghi dữ liệu từ file excel đang mở vào file excel đang đóng (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
H

hong1989

Thành viên chính thức
Tham gia
10/2/14
Bài viết
53
Được thích
2
Mình có sưu tập được code của anh Hai lua mien tay về việc ghi dữ liệu từ file đang mở vào file đang đóng. nhưng loay hoay mãi không biết cách nào sủa để áp dụng được
Mọi người giúp mình sửa đoạn code này với
Yêu cầu: Mở rộng vùng phạm vi cần update, xóa hết dữ liệu cũ để update dữ liệu mới

Sub Test()
Dim ado As Object
Set ado = CreateObject("ADODB.Connection")
ado.Open ("Provider=Microsoft.JET.OLEDB.4.0;Data Source=""" _
& ThisWorkbook.Path & "\Data.xls" & """;Extended Properties=""Excel 8.0;HDR=No"";")
ado.Execute "UPDATE [Sheet1$A1:A1] SET F1 = '" & Sheet1.[A1] & "'"
ado.Close


End Sub

Rất cám ơn mọi người
 
Sắp xếp theo thời gian sắp xếp theo bầu chọn
hong1989 đã viết:
Mình có sưu tập được code của anh Hai lua mien tay về việc ghi dữ liệu từ file đang mở vào file đang đóng. nhưng loay hoay mãi không biết cách nào sủa để áp dụng được
Mọi người giúp mình sửa đoạn code này với
Yêu cầu: Mở rộng vùng phạm vi cần update, xóa hết dữ liệu cũ để update dữ liệu mới

Sub Test()
Dim ado As Object
Set ado = CreateObject("ADODB.Connection")
ado.Open ("Provider=Microsoft.JET.OLEDB.4.0;Data Source=""" _
& ThisWorkbook.Path & "\Data.xls" & """;Extended Properties=""Excel 8.0;HDR=No"";")
ado.Execute "UPDATE [Sheet1$A1:A1] SET F1 = '" & Sheet1.[A1] & "'"
ado.Close


End Sub

Rất cám ơn mọi người
Nhấp chuột vào đây để mở rộng...
Phải có File thì mới có cái để test chứ ban!
 
Upvote 0
Mình muốn áp dụng ADO của file trên nhưng muốn mở rộng thêm dòng và cột dữ liệu. file ở trên chỉ cập nhật update được dữ liệu cho 1 ô. Thực tế công viêc của mình cần update từ file tổng đang mở xuống file nhỏ đang đóng. mình cũng tìm kiếm được 1 code dung vba những tốc độ chậm quá. rất mong sự giúp đỡ của bạn và mọi người
 
Upvote 0
hong1989 đã viết:
Mình muốn áp dụng ADO của file trên nhưng muốn mở rộng thêm dòng và cột dữ liệu. file ở trên chỉ cập nhật update được dữ liệu cho 1 ô. Thực tế công viêc của mình cần update từ file tổng đang mở xuống file nhỏ đang đóng. mình cũng tìm kiếm được 1 code dung vba những tốc độ chậm quá. rất mong sự giúp đỡ của bạn và mọi người
Nhấp chuột vào đây để mở rộng...
Bạn đưa File giả lập có cấu trúc giống File thật lên đi, dữ liệu trong 1 File của bạn có bao nhiêu dòng bao nhiêu cột???
 
Upvote 0
hong1989 đã viết:
Mình muốn áp dụng ADO của file trên nhưng muốn mở rộng thêm dòng và cột dữ liệu. file ở trên chỉ cập nhật update được dữ liệu cho 1 ô. Thực tế công viêc của mình cần update từ file tổng đang mở xuống file nhỏ đang đóng. mình cũng tìm kiếm được 1 code dung vba những tốc độ chậm quá. rất mong sự giúp đỡ của bạn và mọi người
Nhấp chuột vào đây để mở rộng...
miệng thì nói muốn mở rộng thêm nhiều dòng và cột . mà 2 file up lên mỗi file có đúng 1 cột và lèo tèo vài dòng ?
vậy thì bạn ráng đợi thêm mấy năm nữa chắc sẽ có người giúp .
mấy cái vụ ghi dữ liệu lên file đang đóng này , gặp file thật 100% cũng chưa chắc đã viết được code chạy đúng chứ đừng nói là làm ăn cái kiểu này .
 
Upvote 0
doveandrose đã viết:
miệng thì nói muốn mở rộng thêm nhiều dòng và cột . mà 2 file up lên mỗi file có đúng 1 cột và lèo tèo vài dòng ?
vậy thì bạn ráng đợi thêm mấy năm nữa chắc sẽ có người giúp .
mấy cái vụ ghi dữ liệu lên file đang đóng này , gặp file thật 100% cũng chưa chắc đã viết được code chạy đúng chứ đừng nói là làm ăn cái kiểu này .
Nhấp chuột vào đây để mở rộng...
Chính xác đó! Với cái kiểu File này thì ráng đợi!--=0--=0--=0--=0
 
Upvote 0
Cám ơn 2 bạn đã nhăc nhở và cũng xin lỗi về sự chậm chễ. file trên là mình mượn của bác hai lúa miền tây. Dưới đây là link file giả lập với cấu trúc giống file thật trong file mình đã ghi yêu cầu của mình. Rất mong sự giúp đỡ của các bạn
Dưới đây là link tải về:
https://drive.google.com/file/d/0Bx6z3YcGDvh7MFFEWDVrVzFlRWs/view?pli=1
 
Upvote 0
hong1989 đã viết:
Cám ơn 2 bạn đã nhăc nhở và cũng xin lỗi về sự chậm chễ. file trên là mình mượn của bác hai lúa miền tây. Dưới đây là link file giả lập với cấu trúc giống file thật trong file mình đã ghi yêu cầu của mình. Rất mong sự giúp đỡ của các bạn
Dưới đây là link tải về:
https://drive.google.com/file/d/0Bx6z3YcGDvh7MFFEWDVrVzFlRWs/view?pli=1
Nhấp chuột vào đây để mở rộng...
Không dùng ADO có được không????
 
Upvote 0
nếu muốn ghi dữ liệu A6:BB509 qua file Phan_hanh.xlsm thì trong file Phan_hanh.xlsm cần đóng khung hoặc tô màu vùng A6:BB510 rồi chạy code này
Mã: 
Public Sub hello()
Dim strQue As String, Cnn As Object, lrs As Object, r As Long, fileFullname As String
Dim arr As Variant, c As Integer
Set Cnn = CreateObject("ADODB.Connection")
Set lrs = CreateObject("ADODB.Recordset")
fileFullname = ThisWorkbook.Path & "\Phan_hanh.xlsm"
arr = Sheet36.Range("A6:BB509").Value
strQue = "select * from [TT2$A6:BB510]"
Cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & fileFullname & _
           ";Extended Properties=""Excel 12.0;HDR=No;Readonly = False"""
Cnn.Open
lrs.LockType = 3
lrs.Open strQue, Cnn
For r = 1 To UBound(arr) Step 1
    For c = 1 To UBound(arr, 2) Step 1
        lrs("F" & c) = arr(r, c)
    Next
    lrs.movenext
Next
lrs.Update
lrs.Close
Cnn.Close
Set Cnn = Nothing
Set lrs = Nothing
MsgBox "done"
End Sub

đây là code dùng để ghi lên file đóng . file Phan_hanh.xlsm đang mở mà chạy code treo máy ráng chịu
 
Upvote 0
để cho chắc ăn thì nên ghi 1 kí tự bất kì nào đó lên ô A510 của file Phan_hanh.xlsm -> save -> đóng lại -> chạy code
 
Upvote 0
doveandrose đã viết:
nếu muốn ghi dữ liệu A6:BB509 qua file Phan_hanh.xlsm thì trong file Phan_hanh.xlsm cần đóng khung hoặc tô màu vùng A6:BB510 rồi chạy code này
Mã: 
Public Sub hello()
Dim strQue As String, Cnn As Object, lrs As Object, r As Long, fileFullname As String
Dim arr As Variant, c As Integer
Set Cnn = CreateObject("ADODB.Connection")
Set lrs = CreateObject("ADODB.Recordset")
fileFullname = ThisWorkbook.Path & "\Phan_hanh.xlsm"
arr = Sheet36.Range("A6:BB509").Value
strQue = "select * from [TT2$A6:BB510]"
Cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & fileFullname & _
           ";Extended Properties=""Excel 12.0;HDR=No;Readonly = False"""
Cnn.Open
lrs.LockType = 3
lrs.Open strQue, Cnn
For r = 1 To UBound(arr) Step 1
    For c = 1 To UBound(arr, 2) Step 1
        lrs("F" & c) = arr(r, c)
    Next
    lrs.movenext
Next
lrs.Update
lrs.Close
Cnn.Close
Set Cnn = Nothing
Set lrs = Nothing
MsgBox "done"
End Sub

đây là code dùng để ghi lên file đóng . file Phan_hanh.xlsm đang mở mà chạy code treo máy ráng chịu
Nhấp chuột vào đây để mở rộng...
1.Mình đã test thử code của bạn. Nhưng dữ liệu ghi sang file phan_hanh lại bắt đầu từ ô a1. Bạn có thể chỉ cho mình sửa code thế nào để việc ghi dữ liệu vào file phan_hanh bắt đầu từ ô A6 không?
2. Mình cũng thử việc ghi dữ liệu trong khi mở file phan_hanh đúng là máy treo luôn thât. Những mình thấy mấy file ADO của bác Hai lúa miền tây có thể ghi dữ liệu cả khi đóng lẫn mở. Tại khi làm việc không thể biết khi nào mọi người đang mở file được
Cuối cùng mạo muội xin bạn đã giúp thì giúp cho chót. Rất cám ơn bạn
 
Upvote 0
hong1989 đã viết:
1.Mình đã test thử code của bạn. Nhưng dữ liệu ghi sang file phan_hanh lại bắt đầu từ ô a1. Bạn có thể chỉ cho mình sửa code thế nào để việc ghi dữ liệu vào file phan_hanh bắt đầu từ ô A6 không?
2. Mình cũng thử việc ghi dữ liệu trong khi mở file phan_hanh đúng là máy treo luôn thât. Những mình thấy mấy file ADO của bác Hai lúa miền tây có thể ghi dữ liệu cả khi đóng lẫn mở. Tại khi làm việc không thể biết khi nào mọi người đang mở file được
Cuối cùng mạo muội xin bạn đã giúp thì giúp cho chót. Rất cám ơn bạn
Nhấp chuột vào đây để mở rộng...

code trên đã được kiểm tra là để ghi dữ liệu lên vùng A6:BB509 của file phan_hanh
nếu bạn thấy file đó bị ghi từ ô A1 thì bạn phải up lại file phan_hanh khác lên đây để chứng minh lời bạn nói

ghi dữ liệu lên file excel đang mở trên máy khác là chuyện trò hề . người khác đang mở file excel đó trước bạn thì bạn chỉ có quyền đọc chứ làm gì được ghi mà chạy code ? nếu bạn muốn biết file đó có người nào đang mở hay không thì bạn tìm trên diễn đàn . có nhiều bài viết tương tự
 
Upvote 0
doveandrose đã viết:
code trên đã được kiểm tra là để ghi dữ liệu lên vùng A6:BB509 của file phan_hanh
nếu bạn thấy file đó bị ghi từ ô A1 thì bạn phải up lại file phan_hanh khác lên đây để chứng minh lời bạn nói

ghi dữ liệu lên file excel đang mở trên máy khác là chuyện trò hề . người khác đang mở file excel đó trước bạn thì bạn chỉ có quyền đọc chứ làm gì được ghi mà chạy code ? nếu bạn muốn biết file đó có người nào đang mở hay không thì bạn tìm trên diễn đàn . có nhiều bài viết tương tự
Nhấp chuột vào đây để mở rộng...

Mình đã tài file minh test thử lên đây. hiện tại thấy ghi dữ liệu từ ô A1 của sheet TT2 file Phan_hanh. bạn xem giúp mình nhé
https://drive.google.com/file/d/0Bx6z3YcGDvh7aWdYUXR5SGJndjA/view?usp=sharing
 
Upvote 0
doveandrose đã viết:
code trên đã được kiểm tra là để ghi dữ liệu lên vùng A6:BB509 của file phan_hanh
nếu bạn thấy file đó bị ghi từ ô A1 thì bạn phải up lại file phan_hanh khác lên đây để chứng minh lời bạn nói

ghi dữ liệu lên file excel đang mở trên máy khác là chuyện trò hề . người khác đang mở file excel đó trước bạn thì bạn chỉ có quyền đọc chứ làm gì được ghi mà chạy code ? nếu bạn muốn biết file đó có người nào đang mở hay không thì bạn tìm trên diễn đàn . có nhiều bài viết tương tự
Nhấp chuột vào đây để mở rộng...
Còn đây là file mình đã sưu tập của bác "hai lua mien tay". file cho phép ghi dữ liệu từ file nguồn tới file đích đang đóng hoặc mở. Tại công việc khi người khác đang mở bảng để làm mình vẫn có thể cập nhật dữ liệu sang file đấy được
https://drive.google.com/file/d/0Bx6z3YcGDvh7eUVUR3VvZHR4UW8/view?usp=sharing
 
Upvote 0
hong1989 đã viết:
Mình đã tài file minh test thử lên đây. hiện tại thấy ghi dữ liệu từ ô A1 của sheet TT2 file Phan_hanh. bạn xem giúp mình nhé
https://drive.google.com/file/d/0Bx6z3YcGDvh7aWdYUXR5SGJndjA/view?usp=sharing
Nhấp chuột vào đây để mở rộng...
ngay ở cái file này bạn mở lên Clear vùng A1:BB5 -> save -> tắt file -> chạy code xem còn ghi lên A1 nữa không ?




hong1989 đã viết:
Còn đây là file mình đã sưu tập của bác "hai lua mien tay". file cho phép ghi dữ liệu từ file nguồn tới file đích đang đóng hoặc mở. Tại công việc khi người khác đang mở bảng để làm mình vẫn có thể cập nhật dữ liệu sang file đấy được
https://drive.google.com/file/d/0Bx6z3YcGDvh7eUVUR3VvZHR4UW8/view?usp=sharing
Nhấp chuột vào đây để mở rộng...

tôi không có nhiều kiến thức như anh Hai Lúa Miền Tây . nhưng mà tôi không tin là code này ghi được dữ liệu khi máy khác đã mở file B.xls từ trước . ADO ghi dữ liệu chỉ khi file đang đóng thôi . bạn muốn có code ghi được dữ liệu khi người khác đang mở file thì bạn đợi anh Hai Lúa Miền Tây ghé ngang có thể sẽ giúp bạn . chứ tôi không làm được
 
Upvote 0
doveandrose đã viết:
ngay ở cái file này bạn mở lên Clear vùng A1:BB5 -> save -> tắt file -> chạy code xem còn ghi lên A1 nữa không ?


tôi không có nhiều kiến thức như anh Hai Lúa Miền Tây . nhưng mà tôi không tin là code này ghi được dữ liệu khi máy khác đã mở file B.xls từ trước . ADO ghi dữ liệu chỉ khi file đang đóng thôi . bạn muốn có code ghi được dữ liệu khi người khác đang mở file thì bạn đợi anh Hai Lúa Miền Tây ghé ngang có thể sẽ giúp bạn . chứ tôi không làm được
Nhấp chuột vào đây để mở rộng...
Hoàn toàn có thể nhập liệu sang file đang mở đó bạn.

Mã: 
Sub NhapLieu()
    Dim Cn As Object, rst As Object
    Dim strData As String
    strPath = ThisWorkbook.Path
    Set Cn = CreateObject("ADODB.Connection")
    Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=" & strPath & _
            "\A.xls;Extended Properties=""Excel 8.0"";"
    Set rst = Cn.Execute("Insert into [Sheet1$] (Stt,Ten) select stt,ten from [" & strPath & "\B.xls].[Sheet1$]")
    
End Sub
Code trên tôi ghi dữ liệu từ file B.xls sang file A.xls bình thường, cho dù file A.xls có đang mở hay đóng.
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
doveandrose đã viết:
ngay ở cái file này bạn mở lên Clear vùng A1:BB5 -> save -> tắt file -> chạy code xem còn ghi lên A1 nữa không ?

Mình đã clear r nhưng vẫn bị tình tranh ghi lên ô A1. Lạ thật




tôi không có nhiều kiến thức như anh Hai Lúa Miền Tây . nhưng mà tôi không tin là code này ghi được dữ liệu khi máy khác đã mở file B.xls từ trước . ADO ghi dữ liệu chỉ khi file đang đóng thôi . bạn muốn có code ghi được dữ liệu khi người khác đang mở file thì bạn đợi anh Hai Lúa Miền Tây ghé ngang có thể sẽ giúp bạn . chứ tôi không làm được
Nhấp chuột vào đây để mở rộng...

Bạn thử mở file B lên truoc và thao tác. rồi sau đấy mở file A lên ghi dữ liệu sang file B vẫn được. Lưu file như bình thường không có lỗi gì
 
Upvote 0
Hai Lúa Miền Tây đã viết:
Hoàn toàn có thể nhập liệu sang file đang mở đó bạn.

Mã: 
Sub NhapLieu()
    Dim Cn As Object, rst As Object
    Dim strData As String
    strPath = ThisWorkbook.Path
    Set Cn = CreateObject("ADODB.Connection")
    Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=" & strPath & _
            "\A.xls;Extended Properties=""Excel 8.0"";"
    Set rst = Cn.Execute("Insert into [Sheet1$] (Stt,Ten) select stt,ten from [" & strPath & "\B.xls].[Sheet1$]")
    
End Sub
Code trên tôi ghi dữ liệu từ file B.xls sang file A.xls bình thường, cho dù file A.xls có đang mở hay đóng.
Nhấp chuột vào đây để mở rộng...
Anh có thể giúp em sửa code trên để ứng dụng vào file của em được không? Code trên của anh là ghi tiếp dữ liệu vào vùng dữ liệu đã được ghi của file đích. có cách nào có thể update dữ liệu mới thôi không hoặc xóa hết dữ liệu cũ ở file đích để ghi dữ liệu lại từ file nguồn đến file đích không? Rất cám ơn sự giúp đỡ của anh
 
Upvote 0
Hai Lúa Miền Tây đã viết:
Hoàn toàn có thể nhập liệu sang file đang mở đó bạn.

Mã: 
Sub NhapLieu()
    Dim Cn As Object, rst As Object
    Dim strData As String
    strPath = ThisWorkbook.Path
    Set Cn = CreateObject("ADODB.Connection")
    Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=" & strPath & _
            "\A.xls;Extended Properties=""Excel 8.0"";"
    Set rst = Cn.Execute("Insert into [Sheet1$] (Stt,Ten) select stt,ten from [" & strPath & "\B.xls].[Sheet1$]")
    
End Sub
Nhấp chuột vào đây để mở rộng...

vậy chủ topic phải làm rõ vấn đề : người khác mở file này là mở ở đâu ? mở trên máy bạn hay mở file này từ 1 máy khác trong mạng LAN . nếu chính bạn mở file A.xls trên máy bạn thì chả có gì để nói . Nếu là người khác mở file A.xls lên qua mạng LAN thì code trên hoàn toàn không có tác dụng . khi đó code sẽ thực hiện mở file A.xls dưới dạng READ -ONLY và chép dữ liệu vào file A.xls dưới dạng READ-ONLY dĩ nhiên chỉ để cho vui chứ không SAVE được
 
Upvote 0
Thầy Hai Lúa Miền Tây ơi, sao em tải file của Thầy về, mở file B.Xls lên , gỏ dữ liệu vào rồi nhấn nút ghi qua file A.Xls mà bị lỗi ngay dòng:
Set rst = Cn.Execute("Insert into [Sheet1$] (Stt,Ten) select stt,ten from [" & strPath & "\B.xls].[Sheet1$]")
 
Upvote 0
DMQ đã viết:
Thầy Hai Lúa Miền Tây ơi, sao em tải file của Thầy về, mở file B.Xls lên , gỏ dữ liệu vào rồi nhấn nút ghi qua file A.Xls mà bị lỗi ngay dòng:
Set rst = Cn.Execute("Insert into [Sheet1$] (Stt,Ten) select stt,ten from [" & strPath & "\B.xls].[Sheet1$]")
Nhấp chuột vào đây để mở rộng...
Nó báo lỗi sao vậy bạn?
 
Upvote 0
DMQ đã viết:
Thầy Hai Lúa Miền Tây ơi, sao em tải file của Thầy về, mở file B.Xls lên , gỏ dữ liệu vào rồi nhấn nút ghi qua file A.Xls mà bị lỗi ngay dòng:
Set rst = Cn.Execute("Insert into [Sheet1$] (Stt,Ten) select stt,ten from [" & strPath & "\B.xls].[Sheet1$]")
Nhấp chuột vào đây để mở rộng...

Chắc là phải lưu 2 file vào cùng thư mục
tôi làm vậy nó chạy ngon, có đều mỗi lần cập nó chép hết
ADO thấy hay nhưng khó nhắm thật....hihihih
 
Upvote 0
Upvote 0
hong1989 đã viết:
Anh có thể giúp em với yêu cầu update chứ không ghi tiếp được không?
Nhấp chuột vào đây để mở rộng...

Tôi lấy cột Stt làm điều kiện cập nhật, nếu dữ liệu trong file A.xls không có trong file B.xls thì tôi lấy dữ liệu file B.xls đưa vào và đồng thời cập nhật mới dữ liệu.

Mã: 
Sub Update_HLMT()

    Dim Cn As Object
    Dim strData As String
    strPath = ThisWorkbook.Path
    Set Cn = CreateObject("ADODB.Connection")
    Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=" & strPath & _
            "\A.xls;Extended Properties=""Excel 8.0"";"
    Cn.Execute "UPDATE [Sheet1$] a " _
        & "Right Join " _
        & "[Excel 8.0;DATABASE=" & ThisWorkbook.FullName & "].[Sheet1$] b " _
        & "ON a.Stt=b.Stt " _
        & "SET a.Stt=b.Stt,a.Ten=b.Ten"
        
End Sub
 

File đính kèm

Upvote 0
Hai Lúa Miền Tây đã viết:
Tôi lấy cột Stt làm điều kiện cập nhật, nếu dữ liệu trong file A.xls không có trong file B.xls thì tôi lấy dữ liệu file B.xls đưa vào và đồng thời cập nhật mới dữ liệu.

Mã: 
Sub Update_HLMT()

    Dim Cn As Object
    Dim strData As String
    strPath = ThisWorkbook.Path
    Set Cn = CreateObject("ADODB.Connection")
    Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=" & strPath & _
            "\A.xls;Extended Properties=""Excel 8.0"";"
    Cn.Execute "UPDATE [Sheet1$] a " _
        & "Right Join " _
        & "[Excel 8.0;DATABASE=" & ThisWorkbook.FullName & "].[Sheet1$] b " _
        & "ON a.Stt=b.Stt " _
        & "SET a.Stt=b.Stt,a.Ten=b.Ten"
        
End Sub
Nhấp chuột vào đây để mở rộng...
Em rất cám ơn anh " Hai Lúa Miền Tây". Quả thực File của anh rất hay tuy nhiên vẫn còn 1 chút bất cập như sau:
- Ví dụ; Khi File B ghi dữ liệu sang file A từ cột STT có các dòng giá tri 1->6, nhưng nếu sai sót xóa ô có chứa giá trị 3 ở cột stt file B đi thi khi ghi lại dữ liệu sang file A. Cột STT dòng có giá trị 3 đấy không update
- Khi clear giá trị tại file A đi thi cập nhật lại dữ liệu từ file B sang sẽ ghi dữ liệu xuống dưới các ô vừa bị clear ( vì vậy có nhiều ô trống ). Chỉ khi delete dòng đi mới ghi dữ liệu ở bên dưới dòng tiêu đề
 
Upvote 0
hong1989 đã viết:
Em rất cám ơn anh " Hai Lúa Miền Tây". Quả thực File của anh rất hay tuy nhiên vẫn còn 1 chút bất cập như sau:
- Ví dụ; Khi File B ghi dữ liệu sang file A từ cột STT có các dòng giá tri 1->6, nhưng nếu sai sót xóa ô có chứa giá trị 3 ở cột stt file B đi thi khi ghi lại dữ liệu sang file A. Cột STT dòng có giá trị 3 đấy không update
- Khi clear giá trị tại file A đi thi cập nhật lại dữ liệu từ file B sang sẽ ghi dữ liệu xuống dưới các ô vừa bị clear ( vì vậy có nhiều ô trống ). Chỉ khi delete dòng đi mới ghi dữ liệu ở bên dưới dòng tiêu đề
Nhấp chuột vào đây để mở rộng...
Đó là vấn đề của bạn, chuyện dữ liệu xóa hay gì gì đó thì bạn phải chịu thôi chứ. Tôi chỉ làm ví dụ thế thôi. Như tôi đã nói là cột STT là điều kiện để cập nhật, nếu không có nó thì nó đâu biết lấy cái nào để cập nhật.
 
Upvote 0
Hai Lúa Miền Tây đã viết:
Đó là vấn đề của bạn, chuyện dữ liệu xóa hay gì gì đó thì bạn phải chịu thôi chứ. Tôi chỉ làm ví dụ thế thôi. Như tôi đã nói là cột STT là điều kiện để cập nhật, nếu không có nó thì nó đâu biết lấy cái nào để cập nhật.
Nhấp chuột vào đây để mở rộng...
Em xin phép hỏi anh thêm câu nữa. Có cách nào khi ghi dữ liệu từ file B sang file A thi xóa toàn bộ dữ liệu trước đây đã ghi ở file A để ghi dữ liệu mới lại từ đầu đươc không?
 
Upvote 0
doveandrose đã viết:
vậy chủ topic phải làm rõ vấn đề : người khác mở file này là mở ở đâu ? mở trên máy bạn hay mở file này từ 1 máy khác trong mạng LAN . nếu chính bạn mở file A.xls trên máy bạn thì chả có gì để nói . Nếu là người khác mở file A.xls lên qua mạng LAN thì code trên hoàn toàn không có tác dụng . khi đó code sẽ thực hiện mở file A.xls dưới dạng READ -ONLY và chép dữ liệu vào file A.xls dưới dạng READ-ONLY dĩ nhiên chỉ để cho vui chứ không SAVE được
Nhấp chuột vào đây để mở rộng...
Đã test thử trên hai máy dùng mạng Lan. Đúng như lời bạn nói là không thể ghi dữ liệu khi máy kia đang mở file. Chỉ dùng được khi mở trên cùng 1 máy
 
Upvote 0
Cách gì vạy bạn? K phải là cách share workbook dau nhe-0-/.
 
Upvote 0
Tại sao khi share workbook rồi mà vẫn không dung ADO để ghi vào 1 file mở trên 2 máy được nhỉ
 
Upvote 0
hong1989 đã viết:
Tại sao khi share workbook rồi mà vẫn không dung ADO để ghi vào 1 file mở trên 2 máy được nhỉ
Nhấp chuột vào đây để mở rộng...
Bạn đừng tìm hiểu chi cho thêm mất thời gian, khuyết điểm của nó ở chổ đó. Bạn nên lưu CSDL vào database khác ngoại trừ Excel nhé.
 
Upvote 0
Hai Lúa Miền Tây đã viết:
Bạn đừng tìm hiểu chi cho thêm mất thời gian, khuyết điểm của nó ở chổ đó. Bạn nên lưu CSDL vào database khác ngoại trừ Excel nhé.
Nhấp chuột vào đây để mở rộng...
Kiến thức của em còn nhiều hạn chế anh có thể giải thích chi tiết hơn hoặc có đường link hướng dẫn gì được không?
 
Upvote 0
Upvote 0
hong1989 đã viết:
Cám ơn anh đã chỉ dẫn nhưng excel thì em còn biết 1 ít chứ access vs SQL serve thì em mù tịt hẳn**~**
Nhấp chuột vào đây để mở rộng...
Đơn giản lắm bạn à, chủ yếu là mình có chịu khó tìm tòi và tự học thôi. Tôi nghĩ ít ra bạn cũng nên tự tìm hiểu từ cái đơn giản nhất (Access) để làm "vốn" cho mình. Nó sẽ giúp ích rất nhiều cho công việc của bạn sau này. Rồi từ từ bạn sẽ khá hơn.
Chúc bạn thành công.
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

N
Thuế thu nhập cá nhân (3 người xem)
Trả lời
1
Đọc
19
thanthanhan
thanthanhan
N
  • Question Question
Giúp thu gọn sắp xếp bảng dữ liệu liệu về dạng cột (2 người xem)
Trả lời
2
Đọc
22
Ngocminh19
N
D
Lọc các ô có dữ liệu trùng nhau trong một cột. Xin chỉ giúp
Trả lời
2
Đọc
108
dungpham01
D
Nguyenkhang2404
giúp đỡ lọc dữ liệu nâng cao
Trả lời
10
Đọc
173
Phuocam
Phuocam
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (2 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
3 4 5
Trả lời
401
Đọc
48K
ongke0711
ongke0711
N
Tạo file lưu trữ dữ liệu tự động trên excel.
Trả lời
13
Đọc
369
LOGANWover
L
T
VBA LẤY THÔNG TIN TRÊN TỜ KHAI NHẬP KHẨU (2 người xem)
Trả lời
1
Đọc
112
BuiQuangThuan
B
Tienvinh191
  • Question Question
Nhờ viết Code lấy dữ liệu tờ khai hải quan vào bảng tổng hợp
    • Thích
Trả lời
29
Đọc
3K
ThanhNgoc26100
T
S
cần xử lý dữ liệu trùng nhau bằng VBA
    • Cười
Trả lời
10
Đọc
337
sonminhtran
S
Gà Con yêu VBA
Mở Pass file excel phiên bản .xlsx , xlsm, xlsb
Trả lời
9
Đọc
496
Gà Con yêu VBA
Gà Con yêu VBA
Ả
Cách tạo list Data validation không qua trung gian
Trả lời
46
Đọc
7K
thuytrangbp28
T
D
  • Question Question
xin các cao thủ trợ giúp , hoặc nhận làm code có trả phí ạ
Trả lời
15
Đọc
2K
anhdepjai
A
T
[Giúp đỡ] Sửa lỗi runtime error 1004 application defined or object defined
Trả lời
2
Đọc
113
tmhung0805
T
ongke0711
  • Question Question
Trộn dữ liệu từ Excel sang Word mở rộng (phiên bản ongke0711)
    • Thích
    • Yêu thích
    • Cảm ơn
2 3
Trả lời
280
Đọc
36K
hoangtuan.net
hoangtuan.net
M
  • Question Question
[Hỏi cách tạo VBA] - Xin các cao nhân chỉ giúp cách tạo VBA cho công việc thuận tiện hơn
Trả lời
5
Đọc
269
SA_DQ
SA_DQ
dongbhhg
Hàm đếm số lượng trong khoảng thời gian cho trước
Trả lời
6
Đọc
191
thanthanhan
thanthanhan
D
  • Đã khóa
lọc các ô trong một cột chứa một nhóm dữ liệu? mong các cao thủ giải đáp giúp mình
Trả lời
6
Đọc
202
ptm0412
ptm0412
hieuxd
  • Question Question
Khi nhập dữ liệu tự động chèn thêm dòng khi số dòng trong bảng mẫu sắp hết (1 người xem)
Trả lời
27
Đọc
25K
Anh2207
A
P
In file excel có cột bị gộp
Trả lời
0
Đọc
82
ple28
P
N
  • Question Question
Tạo file lưu trữ dự liệu tự động
Trả lời
8
Đọc
289
le_vis
L
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom