Kiểm tra sự tồn tại của File (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)
Cá ngừ F1

Cá ngừ F1

( ͡° ͜ʖ ͡°)
Thành viên BQT
Moderator
Tham gia
1/1/08
Bài viết
2,579
Được thích
3,723
Donate (Momo)
Donate
Giới tính
Nam
Nghề nghiệp
Quan hệ.. và quan hệ..
E có 1 file Excel tên TONGHOP, tại ô A1 có nội dung: dd/mm/yyyy (ví dụ: 08/05/2014)
Tại module e có code sau:
Mã: 
' Copy va Save as du lieu tu 10.45.8.8\dlg$
Sub Copy_loan()
    Application.DisplayAlerts = False
    Workbooks.Open FileName:="\\10.45.8.8\dlg$\" & Format([COLOR=#ff0000][B][A1][/B][/COLOR].Value, "dMMyy") & _
   "loan.123.dbf"
' Save as ve Import
    ActiveWorkbook.SaveAs FileName:="D:\SHARE\2. Du lieu goc\Import\" & _
    Format([COLOR=#ff0000][B][AS2][/B][/COLOR].Value, "dMMyy") & "loan.123.xlsb", FileFormat:=xlExcel12
' Close lai
    ActiveWorkbook.Close
    Application.DisplayAlerts = True
End Sub
Diễn giải code: Mở file có tên 8052014loan.123.dbf tại thư mục: \\10.45.8.8\dlg$ -> Sau đó Save as thành file dạng excel có tên 8052014loan.123.xlsb (8052014 là tham chiếu của ô AS2 của file .dbf vừa mở) -> Sau khi save rồi thì đóng file .dbf lại.
Câu hỏi của e:
1. E muốn xin code kiểm tra sự tồn tại của file .dbf trên, nếu có thì tiếp tục mở và save as như diễn giải, nếu không tồn tại thì msgbox không tồn tại và thoát khỏi thủ tục2.
2. Sau khi save e có lấy tham chiếu ô AS2 của file .dbf để đặt tên cho file excel .xlsb (e có bôi đỏ ở code). Giờ muốn lấy tham chiếu theo ô A1 của file tổng hợp thì sửa code thế nào ạh
Mong nhận được sự giúp đỡ.
E xin cảm ơn...


 
Sắp xếp theo thời gian sắp xếp theo bầu chọn
Cá ngừ F1 đã viết:
E có 1 file Excel tên TONGHOP, tại ô A1 có nội dung: dd/mm/yyyy (ví dụ: 08/05/2014)
Tại module e có code sau:
Mã: 
' Copy va Save as du lieu tu 10.45.8.8\dlg$
Sub Copy_loan()
    Application.DisplayAlerts = False
    Workbooks.Open FileName:="\\10.45.8.8\dlg$\" & Format([COLOR=#ff0000][B][A1][/B][/COLOR].Value, "dMMyy") & _
   "loan.123.dbf"
' Save as ve Import
    ActiveWorkbook.SaveAs FileName:="D:\SHARE\2. Du lieu goc\Import\" & _
    Format([COLOR=#ff0000][B][AS2][/B][/COLOR].Value, "dMMyy") & "loan.123.xlsb", FileFormat:=xlExcel12
' Close lai
    ActiveWorkbook.Close
    Application.DisplayAlerts = True
End Sub
Diễn giải code: Mở file có tên 8052014loan.123.dbf tại thư mục: \\10.45.8.8\dlg$ -> Sau đó Save as thành file dạng excel có tên 8052014loan.123.xlsb (8052014 là tham chiếu của ô AS2 của file .dbf vừa mở) -> Sau khi save rồi thì đóng file .dbf lại.
Câu hỏi của e:
1. E muốn xin code kiểm tra sự tồn tại của file .dbf trên, nếu có thì tiếp tục mở và save as như diễn giải, nếu không tồn tại thì msgbox không tồn tại và thoát khỏi thủ tục2.
2. Sau khi save e có lấy tham chiếu ô AS2 của file .dbf để đặt tên cho file excel .xlsb (e có bôi đỏ ở code). Giờ muốn lấy tham chiếu theo ô A1 của file tổng hợp thì sửa code thế nào ạh
Mong nhận được sự giúp đỡ.
E xin cảm ơn...
Nhấp chuột vào đây để mở rộng...
Nếu không có file thì câu lệnh Workbooks.Open sẽ báo lỗi. Giải pháp đơn giản nhất là đặt bẫy lỗi On Error Goto ..... Đặt End Sub trước câu lệnh Msgbox "File không tồn tại"....
 
Upvote 0
vu_tuan_manh_linh đã viết:
Nếu không có file thì câu lệnh Workbooks.Open sẽ báo lỗi. Giải pháp đơn giản nhất là đặt bẫy lỗi On Error Goto ..... Đặt End Sub trước câu lệnh Msgbox "File không tồn tại"....
Nhấp chuột vào đây để mở rộng...
Theo gợi ý của a, E viết thành, test thử có vẻ được
Mà ý thứ 2 giải pháp như nào hả a?
Mã: 
Sub Copy_loan()
Application.DisplayAlerts = False
On error goto BaoLoi
        Workbooks.Open FileName:="\\10.45.8.8\dlg$\" & Format([COLOR=#ff0000][B][A1][/B][/COLOR].Value, "dMMyy") & _
        "loan.123.dbf"
     BaoLoi:
            Msgbox "Ko ton tai file"
     Exit sub
' Save as ve Import
ActiveWorkbook.SaveAs FileName:="D:\SHARE\2. Du lieu goc\Import\" & _
Format([COLOR=#ff0000][B][AS2][/B][/COLOR].Value, "dMMyy") & "loan.123.xlsb", FileFormat:=xlExcel12
' Close lai
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub
 
Upvote 0
Cá ngừ F1 đã viết:
Theo gợi ý của a, E viết thành, test thử có vẻ được
Mà ý thứ 2 giải pháp như nào hả a?
Nhấp chuột vào đây để mở rộng...
Như thế này bạn ạ!
Mã: 
Sub Copy_loan()
On Error GoTo BaoLoi
Application.DisplayAlerts = False
Workbooks.Open Filename:="\\10.45.8.8\dlg$\" & Format([A1].Value, "dMMyy") & "loan.123.dbf"
' Save as ve Import
ActiveWorkbook.SaveAs Filename:="D:\SHARE\2. Du lieu goc\Import\" & _
Format([AS2].Value, "dMMyy") & "loan.123.xlsb", FileFormat:=xlExcel12
' Close lai
ActiveWorkbook.Close
Application.DisplayAlerts = True
Exit Sub
BaoLoi:
MsgBox "Ko ton tai file"
Application.DisplayAlerts = True
End Sub
 
Upvote 0
vu_tuan_manh_linh đã viết:
Như thế này bạn ạ!
Mã: 
Sub Copy_loan()
On Error GoTo BaoLoi
Application.DisplayAlerts = False
Workbooks.Open Filename:="\\10.45.8.8\dlg$\" & Format([COLOR=#ff0000][B][A1][/B][/COLOR].Value, "dMMyy") & "loan.123.dbf"
' Save as ve Import
ActiveWorkbook.SaveAs Filename:="D:\SHARE\2. Du lieu goc\Import\" & _
Format([COLOR=#ff0000][B][AS2][/B][/COLOR].Value, "dMMyy") & "loan.123.xlsb", FileFormat:=xlExcel12
' Close lai
ActiveWorkbook.Close
Application.DisplayAlerts = True
Exit Sub
BaoLoi:
MsgBox "Ko ton tai file"
Application.DisplayAlerts = True
End Sub
Nhấp chuột vào đây để mở rộng...
Chỗ AS2 của activeworkbook làm sao để thay bằng A1 (workbook ban đầu ko active do đang chạy thủ tục)
 
Upvote 0
Upvote 0
Cá ngừ F1 đã viết:
Uây a ơi, phải mở ra thì mới save as được chứ ạh
Nhấp chuột vào đây để mở rộng...
Ý mình là đảo 2 dòng này cho nhau:
Mã: 
ActiveWorkbook.SaveAs Filename:="D:\SHARE\2. Du lieu goc\Import\" & _
Format([COLOR=#ff0000][B][AS2][/B][/COLOR].Value, "dMMyy") & "loan.123.xlsb", FileFormat:=xlExcel12
Mà hình như mình chưa hiểu ý bạn!!!??
 
Upvote 0
vu_tuan_manh_linh đã viết:
Ý mình là đảo 2 dòng này cho nhau:
Mã: 
ActiveWorkbook.SaveAs Filename:="D:\SHARE\2. Du lieu goc\Import\" & _
Format([COLOR=#ff0000][B][AS2][/B][/COLOR].Value, "dMMyy") & "loan.123.xlsb", FileFormat:=xlExcel12
Mà hình như mình chưa hiểu ý bạn!!!??
Nhấp chuột vào đây để mở rộng...
Dạ.. có lẽ a chưa hiểu ý e
Thế này là:
Đầu tiên lấy tham chiếu ở ô A1 (có định dạng dd/mm/yyyy) (file nguồn) để mở file có dạng dmmyyyyloan.123.dbf tại thư mục như code đầu
Sau khi mở file dmmyyyyloan.123.dbf thì file này thành activeworkbook nên e chỉ lấy được format tại ô AS2 của file này.
Tuy nhiên, nhiều khi ô AS2 lại ko có dữ liệu j nên tên file save as ko đúng yêu cầu, nên e muốn lấy theo ô A1 của file nguồn.
 
Lần chỉnh sửa cuối:
Upvote 0
Cá ngừ F1 đã viết:
Dạ.. có lẽ a chưa hiểu ý e
Thế này là:
Đầu tiên lấy tham chiếu ở ô A1 (có định dạng dd/mm/yyyy) (file nguồn) để mở file có dạng dmmyyyyloan.123.dbf tại thư mục như code đầu
Sau khi mở file dmmyyyyloan.123.dbf thì file này thành activeworkbook nên e chỉ lấy được format tại ô AS2 của file này.
Tuy nhiên, nhiều khi ô AS2 lại ko có dữ liệu j nên tên file save as ko đúng yêu cầu, nên e muốn lấy theo ô A1 của file nguồn.
Nhấp chuột vào đây để mở rộng...
Có thể là như thế này:
Mã: 
Sub Copy_loan()
Dim Fm
On Error GoTo BaoLoi
Application.DisplayAlerts = False
Fm = Format([A1], "dmmyy")
Workbooks.Open Filename:="\\10.45.8.8\dlg$\" & Fm & "loan.123.dbf"
' Save as ve Import
Format([AS2]) = Fm
ActiveWorkbook.SaveAs Filename:="D:\SHARE\2. Du lieu goc\Import\" & _
Fm & "loan.123.xlsb", FileFormat:=xlExcel12
' Close lai
ActiveWorkbook.Close
Application.DisplayAlerts = True
Exit Sub
BaoLoi:
MsgBox "Ko ton tai file"
Application.DisplayAlerts = True
End Sub
 
Lần chỉnh sửa cuối:
Upvote 0
Để kiểm tra sự tồn tại của file bạn có thể dùng đoạn code có dạng dưới đây, bạn tuỳ biến cho công việc của mình
Mã: 
    With CreateObject("Scripting.FileSystemObject")
        If .FileExists("[COLOR=#ff0000][B]Đường dẫn của file[/B][/COLOR]") = False Then
            MsgBox "File khong ton tai", vbInformation, "Thong bao"
        End If
    End With
 
Upvote 0
Sau khi được sự gợi ý của A Manh_Linh và DHN46
E có viết code sau:
Mã: 
[COLOR=#000000][FONT=Helvetica Neue]Sub Copy_loan()[/FONT][/COLOR]
[COLOR=#000000][FONT=Helvetica Neue]    Application.DisplayAlerts = False[/FONT][/COLOR]
[COLOR=#000000][FONT=Helvetica Neue]    Dim Name1 As String, Name2 As String[/FONT][/COLOR]
[COLOR=#000000][FONT=Helvetica Neue]        Name1 = "\\10.45.8.8\dlg$\" & Format([A1].Value, "dMMyy") & _[/FONT][/COLOR]
[COLOR=#000000][FONT=Helvetica Neue]                "loan.123.dbf"[/FONT][/COLOR]
[COLOR=#000000][FONT=Helvetica Neue]        Name2 = "D:\SHARE\2. Du lieu goc\Import\" & _[/FONT][/COLOR]
[COLOR=#000000][FONT=Helvetica Neue]                Format([A1].Value, "dMMyy") & "Loan.123.xlsb"[/FONT][/COLOR]
[COLOR=#000000][FONT=Helvetica Neue]' Kiem tra su ton tai cua file[/FONT][/COLOR]
[COLOR=#000000][FONT=Helvetica Neue]    With CreateObject("Scripting.FileSystemObject")[/FONT][/COLOR]
[COLOR=#000000][FONT=Helvetica Neue]        If .FileExists(Name1) = False Then[/FONT][/COLOR]
[COLOR=#000000][FONT=Helvetica Neue]            MsgBox "Chua co file Loan", vbInformation, "tho^ng bao'"[/FONT][/COLOR]
[COLOR=#000000][FONT=Helvetica Neue]            Exit Sub[/FONT][/COLOR]
[COLOR=#000000][FONT=Helvetica Neue]            Else[/FONT][/COLOR]
[COLOR=#000000][FONT=Helvetica Neue]            Workbooks.Open Name1[/FONT][/COLOR]
[COLOR=#000000][FONT=Helvetica Neue]            ActiveWorkbook.SaveAs Name2, FileFormat:=xlExcel12[/FONT][/COLOR]
[COLOR=#000000][FONT=Helvetica Neue]        End If[/FONT][/COLOR]
[COLOR=#000000][FONT=Helvetica Neue]    End With[/FONT][/COLOR]
[COLOR=#000000][FONT=Helvetica Neue]' Close lai[/FONT][/COLOR]
[COLOR=#000000][FONT=Helvetica Neue]    ActiveWorkbook.Close[/FONT][/COLOR]
[COLOR=#000000][FONT=Helvetica Neue]    Application.DisplayAlerts = True[/FONT][/COLOR]
[COLOR=#000000][FONT=Helvetica Neue]End Sub[/FONT][/COLOR]
E có khai báo biến Name luôn từ đầu, như thế nó sẽ lấy tham chiếu tại ô A1 của file nguồn.
Xin cảm ơn...
 
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

L
  • Question Question
Gõ và chọn tên trong ComboBox hiển thị giá trị trong textbox (2 người xem)
    • Cười
Trả lời
3
Đọc
62
Hoàng Tuấn 868
H
SA_DQ
Trò chơi đoán số & gợi ý của Copilot (1 người xem)
Trả lời
0
Đọc
20
SA_DQ
SA_DQ
thanhss
Tự động lấy dữ liệu từ các sheet khác đưa vào sheet tổng hợp khi chọn Ngày hoặc tháng hoặc năm (1 người xem)
Trả lời
23
Đọc
302
LamNA
LamNA
phuongnam366377
VbaTools – Bộ công cụ mở rộng cho VBA trong Excel (4 người xem)
Trả lời
8
Đọc
181
phuongnam366377
phuongnam366377
Tuanba1992
Lập trình Excel có thể dùng ngôn ngữ lập trình nào? (1 người xem)
Trả lời
7
Đọc
302
Tuanba1992
Tuanba1992
L
Nhờ giúp đỡ công thức tính công từ dữ liệu trích xuất ra từ File chấm công (2 người xem)
Trả lời
0
Đọc
43
lưu tuấn dũng
L
H
Excel không lọc được toàn bộ dữ liệu
Trả lời
0
Đọc
43
Hongphong123
H
H
Tổng hợp Công Nợ theo Công trình
Trả lời
27
Đọc
430
HangktGTN
H
H
  • Đã khóa
Công Thức Tính Tổng Công Nợ Khách Hàng
Trả lời
1
Đọc
50
ptm0412
ptm0412
B
Mình có làm đoạn code VBA trong file access mà cứ báo lỗi nhờ mọi người hướng dẫn
Trả lời
8
Đọc
150
ptm0412
ptm0412
GPE-Trợ Lý
CHÀO MỪNG 80 NĂM QUỐC KHÁNH
    • Thích
    • Yêu thích
Trả lời
0
Đọc
63
GPE-Trợ Lý
GPE-Trợ Lý
vuthaiha90
Lọc dữ liệu không trùng và trả kết quả về 1 dòng (1 người xem)
Trả lời
7
Đọc
294
tranhungdao12a3
T
T
Nhờ anh chị xem giúp file bị lỗi gì mà chạy rất chậm/lag - File tính tiền nhà trọ (1 người xem)
Trả lời
10
Đọc
407
Thaik05
T
Nguyễn Duy Tuân
Hàm BS COMBINLIST Liệt kê các giá trị tổ hợp, chỉnh hợp, chỉnh hợp không lặp | Add-in A-Tools v10
    • Thích
    • Yêu thích
Trả lời
24
Đọc
2K
nguyendang95
N
J
Xử lý các file Excel bị nặng sau nhiều năm sử dụng
Trả lời
13
Đọc
2K
huhumalu
H
hongphuong1997
Nên sử dụng Chatgpt hay Copilot
    • Yêu thích
Trả lời
12
Đọc
409
phuongnam366377
phuongnam366377
L
File Excel nặng chưa tìm được lý do ở đâu . Mong các bác hỗ trợ !
Trả lời
5
Đọc
155
PhanTuHuong
PhanTuHuong
U
VB tính tổng số cell trong 1 hàng có cùng màu với 1 cell so sánh ở cột khác
Trả lời
5
Đọc
114
Hoàng Tuấn 868
H
T
VBA LẤY THÔNG TIN TRÊN TỜ KHAI NHẬP KHẨU
Trả lời
10
Đọc
680
binhminh1408
B
H
Giúp mình ghép nhiều file thành một file. (1 người xem)
Trả lời
10
Đọc
494
hanhnguyen120221cuty
H
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