Có thể dán dữ liệu vào Cell trong file không mở ?

[TrungChinhs]

Các bạn cho mình hỏi: có thể dán dữ liệu từ một cell hiện hành hoặc từ một câu lệnh vào một cell trong một file đang đóng được không (tất nhiên file đó có đầy đủ tên flie và đường dẫn), nếu được thì câu lệnh viết như thế nào ? rất mong được các bạn giúp. Xin cảm ơn !

 

[Po_Pikachu]

Cái này sao nghe giống viết virus hay trojan gì gì đó nhỉ? Vì virus và trojan đâu cần mở file khác đâu mà vẫn chui vào trong và lây truyền tùm lum ấy! Em nghĩ là không được đâu bác nhỉ! Thân.

 

[TrungChinhs]

Cái này sao nghe giống viết virus hay trojan gì gì đó nhỉ?
Vì virus và trojan đâu cần mở file khác đâu mà vẫn chui vào trong và lây truyền tùm lum ấy!
Em nghĩ là không được đâu bác nhỉ!
Thân.

ồ không ! mình không nghĩ câu hỏi này lại liên quan đến vi rút ? cụ thể là mình muốn hỏi để thay đổi 1 số (vd số 10) đã ghi trong ô A1 của file đang đóng thành số 30 thôi mà.

 

[Po_Pikachu]

Mình biết là bạn không nghĩ vậy! Chỉ là... Nếu cần thay đổi thì bạn chỉ cần mở file đó ra và thay đổi thôi! Còn nếu nói về lợi hại thì: 1.Do Microsoft luôn mã hóa dữ liệu khi lưu file, nên thay đổi mà không mở mã hóa hay mã hóa luôn rồi nạp vào thì sẽ gây khó khăn cho người viết code lắm. 2.Làm vậy thì người khác sẽ có thể chỉnh sữa được dữ liệu của mình mà mình không biết?!? Vậy đâu có lợi cho việc làm của mình đúng không? Kết luận: Làm chi cho mệt vậy bác. Cứ theo bình thường thì tốt rồi!

 

[ndu96081631]

Tôi nghĩ có cách đấy:
1> Tạo 1 sub, gọi file lên và chỉnh sửa
2> Làm xong đóng và lưu
Nói chung vẩn phải mở file lên, nhưng nếu dùng code để làm thì tiến trình diển ra khá nhanh, có khi ta cũng chả kịp nhìn thấy nó mở thế nào

 

[cadafi]

Bạn thử đoạn code này xem nhé:

Sub Test()
Dim MyCloseWB As Workbook
Application.ScreenUpdating = False
''//Mở file nguồn, cú pháp: // =Workbooks.Open("TênFileKèmĐườngDẫn",updateLinks,readOnly) //
Set MyCloseWB = Workbooks.Open("D:\kiet.xls", False, False)
''//Gán giá trị "Vo Tuan Kiet" vào ô A1 của sheet1 trong file Kiet.xls
MyCloseWB.Sheets("Sheet1").[A1] = "Vo Tuan Kiet"
MyCloseWB.Close True
Application.ScreenUpdating = True
End Sub

 

[Mr Okebab]

Bạn thử đoạn code này xem nhé:

Sub Test()
Dim MyCloseWB As Workbook
Application.ScreenUpdating = False
''//Mở file nguồn, cú pháp: // =Workbooks.Open("TênFileKèmĐườngDẫn",updateLinks,readOnly) //
Set MyCloseWB = Workbooks.Open("D:\kiet.xls", False, False)
''//Gán giá trị "Vo Tuan Kiet vào ô A1 của sheet1 trong file Kiet.xls
MyCloseWB.Sheets("Sheet1").[A1] = "Vo Tuan Kiet"
MyCloseWB.Close True
Application.ScreenUpdating = True
End Sub

Cần kiểm tra xem WB này đã mở chưa, nếu mở rồi thì thôi.
Còn nếu không thì có dòng bỏ qua lỗi.

Thân!

 

[cadafi]

Cần kiểm tra xem WB này đã mở chưa, nếu mở rồi thì thôi.
Còn nếu không thì có dòng bỏ qua lỗi.

Vậy ta sửa lại chút xíu:

Sub Test()
Dim MyCloseWB As Workbook
Application.ScreenUpdating = False
''//Kiểm tra xem file có mở hay chưa, nếu chưa thì mở ra:
On Error Resume Next
Set MyCloseWB = Workbooks("Kiet.xls")
If Err<>0 then
''//Mở file nguồn, cú pháp: // =Workbooks.Open("TênFileKèmĐườngDẫn",updateLinks,readOnly) //
Set MyCloseWB = Workbooks.Open("D:\kiet.xls", False, False)
End If
''=====================================================
''//Gán giá trị "Vo Tuan Kiet" vào ô A1 của sheet1 trong file Kiet.xls
MyCloseWB.Sheets("Sheet1").[A1] = "Vo Tuan Kiet"
MyCloseWB.Close True
Application.ScreenUpdating = True
End Sub

 

[Mr Okebab]

Vậy ta sửa lại chút xíu:

Sub Test()
Dim MyCloseWB As Workbook

Set MyCloseWB = "Kiet.xls"

Chiêu này có vẻ mới !!!

Thân!

 

[cadafi]

Chiêu này có vẻ mới !!!

Ồ! Xin lỗi! Em đánh nhanh quá nên thiếu mất. Đúng ra phải là

Set MyCloseWB = Workbooks("Kiet.xls")

Em đã sửa lại code ở bài #8. Thành thật cáo lỗi.