Đặt tên file & open file...Xin giúp đỡ! (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)
A

alias1313

Thành viên hoạt động
Tham gia
7/4/17
Bài viết
163
Được thích
13
Em có file excel tên: Bao_cao_so_lieu_25_5_2017.xls, file này được lấy trên cơ sở dữ liệu mỗi ngày, vì vậy tên file sẽ thay đổi theo ngày, tháng lấy dữ liệu.
Mong Anh/Chị giúp em khai báo tên file để em có thể dùng macro mở file theo ngày tương ứng( ví dụ: ngày 30/06 thì mở file: Bao_cao_so_lieu_30_6_2017.xls

File_name = "Bao_cao_so_lieu_25_5_2017.xls"
Workbooks.Open Filename:=path_name & File_name.
 
PHP: 
[A1]="Bao_cao_so_lieu_"&TEXT(TODAY(),"d\_m\_yyyy")&".xls"
PHP: 
msgbox "Bao_cao_so_lieu_" & Format(Date, "d\_m\_yyyy") & ".xls"
 
befaint đã viết:
PHP: 
[A1]="Bao_cao_so_lieu_"&TEXT(TODAY(),"d\_m\_yyyy")&".xls"
PHP: 
msgbox "Bao_cao_so_lieu_" & Format(Date, "d\_m\_yyyy") & ".xls"
Nhấp chuột vào đây để mở rộng...


Đoạn code của anh đúng cái em cần....nhưng em thử đủ cách mà không sao áp dụng được

filename= "Bao_cao_so_lieu_" & Text(TODAY(), "d\_m\_yyyy") & ".xls"
or
[A1]="Bao_cao_so_lieu_"&TEXT(TODAY(),"d\_m\_yyyy")&".xls"( tại A1 đã hiển thị: Bao_cao_so_lieu_25_5_2017.xls)
Filename = range("A1").value
2 cách này chạy báo lỗi: sub or function not defined ( debug...thì nó chỉ lỗi chỗ TODAY)

Anh có thể giúp em đưa đoạn code này vào để chạy không? Thanks anh !
 
alias1313 đã viết:
Đoạn code của anh đúng cái em cần....nhưng em thử đủ cách mà không sao áp dụng được

filename= "Bao_cao_so_lieu_" & Text(TODAY(), "d\_m\_yyyy") & ".xls"
or
[A1]="Bao_cao_so_lieu_"&TEXT(TODAY(),"d\_m\_yyyy")&".xls"( tại A1 đã hiển thị: Bao_cao_so_lieu_25_5_2017.xls)
Filename = range("A1").value
2 cách này chạy báo lỗi: sub or function not defined ( debug...thì nó chỉ lỗi chỗ TODAY)

Anh có thể giúp em đưa đoạn code này vào để chạy không? Thanks anh !
Nhấp chuột vào đây để mở rộng...
debug...thì nó chỉ lỗi chỗ TODAY báo lỗi cho cả phần Filename = range("A1").value? Không đúng.
 
quanluu1989 đã viết:
Không chạy đc thì nó phải báo lỗi ở đâu đó chứ. Bạn đưa code của bạn lên coi.
Nhấp chuột vào đây để mở rộng...


Em đã tìm ra chỗ sai...
[A1]="Bao_cao_so_lieu_"&TEXT(TODAY(),"d\_m\_yyyy")&".xls"
Filename = range("A1").value

Nó chỉ báo lỗi : sub or function not defined , con chuột chỉ ngay chỗ TODAY...
Vấn đề ở chỗ: Bao_cao_so_lieu_25_5__2017.xls tên file" __2017" có 2 cái gạch dưới không phải 1..
em sửa thành: [A1]="Bao_cao_so_lieu_"&TEXT(TODAY(),"d\_m\__yyyy")&".xls" nhưng vẫn không được, vì như thế nó lai ra : Bao_cao_so_lieu_25_5_ 2017.xls , 1 dấu gạch + space _ 2017, chứ không ra 2 gạch dưới __2017, hết sức đau đầu.
 
alias1313 đã viết:
Em đã tìm ra chỗ sai...
[A1]="Bao_cao_so_lieu_"&TEXT(TODAY(),"d\_m\_yyyy")&".xls"
Filename = range("A1").value

Nó chỉ báo lỗi : sub or function not defined , con chuột chỉ ngay chỗ TODAY...
Vấn đề ở chỗ: Bao_cao_so_lieu_25_5__2017.xls tên file" __2017" có 2 cái gạch dưới không phải 1..
em sửa thành: [A1]="Bao_cao_so_lieu_"&TEXT(TODAY(),"d\_m\__yyyy")&".xls" nhưng vẫn không được, vì như thế nó lai ra : Bao_cao_so_lieu_25_5_ 2017.xls , 1 dấu gạch + space _ 2017, chứ không ra 2 gạch dưới __2017, hết sức đau đầu.
Nhấp chuột vào đây để mở rộng...
Nói chung nếu viết code VBA thì không viết kiểu đó được (VBA không có hàm TEXT, cũng không có hàm TODAY)
Viết vầy:
Mã: 
filename = "Bao_cao_so_lieu_" & Format(Date, "d_m_yyyy") & ".xls"
Muốn 1 gạch dưới hay 2 gạch dưới, bạn cứ sửa thoải mái
 
ndu96081631 đã viết:
Nói chung nếu viết code VBA thì không viết kiểu đó được (VBA không có hàm TEXT, cũng không có hàm TODAY)
Viết vầy:
Mã: 
filename = "Bao_cao_so_lieu_" & Format(Date, "d_m_yyyy") & ".xls"
Muốn 1 gạch dưới hay 2 gạch dưới, bạn cứ sửa thoải mái
Nhấp chuột vào đây để mở rộng...

Một phát được luôn Thầy ơi...( em chưa gặp Thầy nhưng thấy nhiều người trong diễn đàn GPE rất kính trọng Thầy ..nên em cũng gọi Anh là Thầy...^_^...)...cảm ơn Thầy cùng các Anh rất nhiều!
 
@ndu96081631 Thầy có thể giúp em thêm 1 câu hỏi về filename:

Ví dụ:
em có 1 file tên: Bao_cao_so_lieu_25_5__2017.xls, thay vì phải khai báo đầy đủ mình có cách nào khai báo tắt không Thầy, như là: " * " & "2017.xls" or "Bao_cao" & " * " ( dấu * giống như trong tìm kiếm mình hay dùng * đề thay thế cho một phần tên file)
Em cám ơn Thầy!!!:p
 
alias1313 đã viết:
@ndu96081631 Thầy có thể giúp em thêm 1 câu hỏi về filename:

Ví dụ:
em có 1 file tên: Bao_cao_so_lieu_25_5__2017.xls, thay vì phải khai báo đầy đủ mình có cách nào khai báo tắt không Thầy, như là: " * " & "2017.xls" or "Bao_cao" & " * " ( dấu * giống như trong tìm kiếm mình hay dùng * đề thay thế cho một phần tên file)
Em cám ơn Thầy!!!:p
Nhấp chuột vào đây để mở rộng...
Nếu bạn dùng ký tự đại diện "*", vậy khi code tìm được từ 2 files trở lên thì nó biết mở file nào?
 
ndu96081631 đã viết:
Nếu bạn dùng ký tự đại diện "*", vậy khi code tìm được từ 2 files trở lên thì nó biết mở file nào?
Nhấp chuột vào đây để mở rộng...

Trong thư mục chứa file của em chỉ có 1 file dạng đó, vấn đề của em đã được giải quyết nhờ đoạn code của Thầy
em hỏi trường hợp này để hiểu thêm xem VBA có cho phép làm như vậy không, vì em đã thử nhưng không được

"vậy khi code tìm được từ 2 files trở lên thì nó biết mở file nào?" : Vấn đề này nếu có ít file có thể giải quyết( điều chình cho phần sau dấu "*" khác nhau), nhưng nhiều file tương tự thì em chịu!
 
alias1313 đã viết:
Trong thư mục chứa file của em chỉ có 1 file dạng đó, vấn đề của em đã được giải quyết nhờ đoạn code của Thầy
em hỏi trường hợp này để hiểu thêm xem VBA có cho phép làm như vậy không, vì em đã thử nhưng không được

"vậy khi code tìm được từ 2 files trở lên thì nó biết mở file nào?" : Vấn đề này nếu có ít file có thể giải quyết( điều chình cho phần sau dấu "*" khác nhau), nhưng nhiều file tương tự thì em chịu!
Nhấp chuột vào đây để mở rộng...
Về phần tìm kiếm, code vba giải quyết được cái vụ "*" của bạn
Mã: 
Function FilesFoldersList(ByVal RootFolder As String, ByVal ListType As Boolean, _
                          ByVal Search As String, ByVal InSub As Boolean)
  'ListType = True: Get Files list
  'ListType = False: Get Folders list
  Dim sComm As String, tmp As String, str As String, tmpFile, Arr
  On Error Resume Next
  If Right(RootFolder, 1) <> "\" Then RootFolder = RootFolder & "\"
  str = """" & RootFolder & Search & """"
 
  With CreateObject("Scripting.FileSystemObject")
    tmpFile = .GetTempName
    'sComm = "DIR " & str & " /ON /B /A" & IIf(ListType, "-", "") & "D-S" & IIf(InSub, "/S", " ") & " >" & tmpFile
    sComm = "DIR " & str & " /ON /B /A" & IIf(ListType, "-", "") & "D" & IIf(InSub, "/S", " ") & " >" & tmpFile
    CreateObject("Wscript.Shell").Run "cmd /u /c " & sComm, 0, True
    With .OpenTextFile(tmpFile, 1, , -2)
      tmp = Trim(.ReadAll)
      If Right(tmp, 2) = vbCrLf Then tmp = Left(tmp, Len(tmp) - 2)
      If Len(tmp) Then
        If InSub = False Then tmp = RootFolder & Replace(tmp, vbCrLf, vbCrLf & RootFolder)
        FilesFoldersList = Split(tmp, vbCrLf)
      End If
      .Close
    End With
  End With
  Kill tmpFile
End Function
Áp dụng code trên để tìm theo cú pháp:
Mã: 
FilesFoldersList(RootFolder, ListType, Search, InSub)
Trong đó:
- RootFolder: Là nơi chứa file mà bạn cần tìm
- ListType: là kiểu danh sách trả về. ListType = True sẽ lấy danh sách files. ListType = False sẽ lấy danh sách folders
- Search: Chuỗi tìm kiếm, cho phép gõ ký tự đại diện. Chẳng hạn là "*2017.xls" như bạn đề cập ở trên
- InSub: xác định có tìm trong thư mục con hay không
Ví dụ minh họa:
Mã: 
arr = FilesFoldersList("D:\Excel", True, "*2017.xls", False)
Có nghĩa là tìm trong thư mục D:\Excel những files có đuôi dạng 2017.xls và không tìm trong thư mục con
Kết quả bạn nhận được từ hàm trên là 1 mảng chứa 1 hoặc nhiều giá trị. Nếu muốn lấy giá trị đầu tiên, cứ truy xuất arr(0) là ra
 
ndu96081631 đã viết:
Về phần tìm kiếm, code vba giải quyết được cái vụ "*" của bạn
Mã: 
Function FilesFoldersList(ByVal RootFolder As String, ByVal ListType As Boolean, _
                          ByVal Search As String, ByVal InSub As Boolean)
  'ListType = True: Get Files list
  'ListType = False: Get Folders list
  Dim sComm As String, tmp As String, str As String, tmpFile, Arr
  On Error Resume Next
  If Right(RootFolder, 1) <> "\" Then RootFolder = RootFolder & "\"
  str = """" & RootFolder & Search & """"
 
  With CreateObject("Scripting.FileSystemObject")
    tmpFile = .GetTempName
    'sComm = "DIR " & str & " /ON /B /A" & IIf(ListType, "-", "") & "D-S" & IIf(InSub, "/S", " ") & " >" & tmpFile
    sComm = "DIR " & str & " /ON /B /A" & IIf(ListType, "-", "") & "D" & IIf(InSub, "/S", " ") & " >" & tmpFile
    CreateObject("Wscript.Shell").Run "cmd /u /c " & sComm, 0, True
    With .OpenTextFile(tmpFile, 1, , -2)
      tmp = Trim(.ReadAll)
      If Right(tmp, 2) = vbCrLf Then tmp = Left(tmp, Len(tmp) - 2)
      If Len(tmp) Then
        If InSub = False Then tmp = RootFolder & Replace(tmp, vbCrLf, vbCrLf & RootFolder)
        FilesFoldersList = Split(tmp, vbCrLf)
      End If
      .Close
    End With
  End With
  Kill tmpFile
End Function
Áp dụng code trên để tìm theo cú pháp:
Mã: 
FilesFoldersList(RootFolder, ListType, Search, InSub)
Trong đó:
- RootFolder: Là nơi chứa file mà bạn cần tìm
- ListType: là kiểu danh sách trả về. ListType = True sẽ lấy danh sách files. ListType = False sẽ lấy danh sách folders
- Search: Chuỗi tìm kiếm, cho phép gõ ký tự đại diện. Chẳng hạn là "*2017.xls" như bạn đề cập ở trên
- InSub: xác định có tìm trong thư mục con hay không
Ví dụ minh họa:
Mã: 
arr = FilesFoldersList("D:\Excel", True, "*2017.xls", False)
Có nghĩa là tìm trong thư mục D:\Excel những files có đuôi dạng 2017.xls và không tìm trong thư mục con
Kết quả bạn nhận được từ hàm trên là 1 mảng chứa 1 hoặc nhiều giá trị. Nếu muốn lấy giá trị đầu tiên, cứ truy xuất arr(0) là ra
Nhấp chuột vào đây để mở rộng...


Em cảm ơn Thầy! Đoạn code trên với em hơi cao, nhưng em sẽ cố gắng tìm hiểu! Nếu có gì không hiểu em sẽ lại hỏi Thầy! ^_^!
 
alias1313 đã viết:
Em cảm ơn Thầy! Đoạn code trên với em hơi cao, nhưng em sẽ cố gắng tìm hiểu! Nếu có gì không hiểu em sẽ lại hỏi Thầy! ^_^!
Nhấp chuột vào đây để mở rộng...
Khi bạn dùng hàm do anh Bill viết, chẳng hạn VLOOKUP, SUMIF.. bạn đâu có quan tâm source code ảnh vẽ rồng rắn gì trong đó mà bạn chỉ cần biết áp dụng đúng cú pháp do anh Bill đưa ra là đủ, đúng không?
Tương tự vậy cho code của tôi. Bạn hiểu thì tốt mà không hiểu cũng không sao, chỉ cần áp dụng đúng cú pháp là được rồi. Quá trình code chạy thể nào, code viết dài dòng hay khó hiểu... cứ kệ nó đi
 
ndu96081631 đã viết:
Khi bạn dùng hàm do anh Bill viết, chẳng hạn VLOOKUP, SUMIF.. bạn đâu có quan tâm source code ảnh vẽ rồng rắn gì trong đó mà bạn chỉ cần biết áp dụng đúng cú pháp do anh Bill đưa ra là đủ, đúng không?
Tương tự vậy cho code của tôi. Bạn hiểu thì tốt mà không hiểu cũng không sao, chỉ cần áp dụng đúng cú pháp là được rồi. Quá trình code chạy thể nào, code viết dài dòng hay khó hiểu... cứ kệ nó đi
Nhấp chuột vào đây để mở rộng...

Cảm ơn Thầy...em sẽ làm như thế.....Nhưng em bị cái tật...cái gì mà hiểu không tới..khó chịu....^_^...
 
alias1313 đã viết:
Cảm ơn Thầy...em sẽ làm như thế.....Nhưng em bị cái tật...cái gì mà hiểu không tới..khó chịu....^_^...
Nhấp chuột vào đây để mở rộng...
Code trên liên quan đến các kiến thức về DOS COMMAND.
Nếu bạn biết về MS DOS, bạn sẽ.. hiểu code trên
Vậy thôi
 
alias1313 đã viết:
Cảm ơn Thầy...em sẽ làm như thế.....Nhưng em bị cái tật...cái gì mà hiểu không tới..khó chịu....^_^...
Nhấp chuột vào đây để mở rộng...
thời xưa mình và rất nhiều người cũng như bạn, giờ thì chịu không nhớ được các kiến thức mới, nên thấy hay là lưu lại, khi cần thì đem ra dùng
dùng lệnh dos xóa file phải cẩn thận với các tham số, thử lung tung nhiều khi phải cài lại máy tính
 
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

SA_DQ
[2] Bình luận của Copilot về các ván cờ vua
Trả lời
16
Đọc
358
SA_DQ
SA_DQ
ongke0711
Tạo thông báo nhắc nhở công việc (Excel + PowerShell + Task scheduler) (1 người xem)
    • Thích
    • Yêu thích
Trả lời
14
Đọc
214
ongke0711
ongke0711
havanvinhqh
  • Đã giải quyết
Nâng cấp PM Excel để chạy mượt mà hơn
    • Cười
Trả lời
2
Đọc
100
PhanTuHuong
PhanTuHuong
G
  • Question Question
Xin hỏi về Lỗi Path Not Found
Trả lời
11
Đọc
146
ongke0711
ongke0711
Maika8008
Liệt kê file trong 1 thư mục của Google Drive
Trả lời
0
Đọc
42
Maika8008
Maika8008
K
Tư vấn dùng máy tính chip AMD hay Intel
Trả lời
6
Đọc
290
vuvo_nhenhang
V
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
    • Cảm ơn
5 6 7
Trả lời
658
Đọc
101K
Luan Nguyn
L
Maika8008
Dùng Apps Script gửi mail hàng loạt từ Google sheets
    • Thích
    • Yêu thích
Trả lời
6
Đọc
236
befaint
befaint
Tiger Nau
In dữ liệu trong word bị lỗi
Trả lời
0
Đọc
29
Tiger Nau
Tiger Nau
J
lỗi không lưu được dữ liệu trong file excel
Trả lời
3
Đọc
90
jenny 129
J
N
  • Question Question
Một lỗi rất khó chịu của VBA khi đọc chuỗi Unicode
    • Thích
Trả lời
3
Đọc
150
ongke0711
ongke0711
nvtnet
  • Question Question
Nhờ các bác giúp đỡ tạo chương trình sao chép dữ liệu vào thư mục con
Trả lời
0
Đọc
68
nvtnet
nvtnet
GPE-Trợ Lý
[ZOOM] POWER QUERY TRAINING (LỚP HỌC POWER QUERY THÁNG 04/2026) (1 người xem)
    • Thích
Trả lời
0
Đọc
2K
GPE-Trợ Lý
GPE-Trợ Lý
minhminh27
File excel thực hiện thao tác lưu trữ (Archive) email của outlook 365
Trả lời
0
Đọc
55
minhminh27
minhminh27
HeSanbi
Tự động hóa gửi Văn bản đi trong QLVBĐH thuộc hệ thống iOffice VNPT cho đơn vị hành chính công
    • Thích
Trả lời
0
Đọc
102
HeSanbi
HeSanbi
C
Tải kết quả xổ số 3 miền về excel
    • Thích
2
Trả lời
100
Đọc
21K
hungking
H
P
  • Question Question
Nhờ viết code VBA để thống kê các số hay ra cùng nhau
Trả lời
45
Đọc
9K
hungking
H
C
Chia sẻ: Kết quả xổ số Keno
    • Cười
    • Thích
Trả lời
25
Đọc
3K
hungking
H
Nguyễn Duy Tuân
  • Dán lên cao
Phiên bản mới Add-in A-Tools AI v10 (2024)
    • Thích
Trả lời
70
Đọc
14K
Nguyễn Duy Tuân
Nguyễn Duy Tuân
Nguyenkhang2404
Hỏi công thức excel link từ dữ liệu sheet CAP sang cột F ở sheet DATA
Trả lời
2
Đọc
114
Nguyenkhang2404
Nguyenkhang2404
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