Làm sao cập nhật đường dẫn khi mở file trong VBA (2 người xem)

[dvu58]

Tôi tạo 1 CommandButton_Click() để mở 1 file có trong 1 thư mục nhất định (VD: "C:\Thư mục\file")

Bạn nào có thể giúp tôi viết code để các đường dẫn tự cập nhật tùy theo mỗi khi cài thư mục vào bất kỳ ổ dĩa nào.

VD: Khi "Thư mục\file" cài vào ổ dĩa D: thì đường dẫn tự cập nhật thành
"D:\Thư mục\file"

Xin cảm ơn các bạn

 

[Nguyễn Duy Tuân]

Bạn dùng ActiveWorkbook.Fullname

 

[dvu58]

Bạn dùng ActiveWorkbook.Fullname

Cảm ơn TuanVNUNI.

Nhưng "Chời lất" ơi, bạn làm cổ mình dài thêm một khúc nữa rồi.

Nhá luôn cho mình cái ví dụ cụ thể đi, năn nỉ đấy!!!

 

[Nguyễn Duy Tuân]

Tôi chưa rõ lắm về mục đính của bạn, tôi viết ví dụ này

Sub Openfile
 Const cFilename="ABC.xls"
 Dim cPath As String,Fullname As String

 cPath= ActiveWorkbook.Path
 Fullname= ActiveWorkbook.Path & "\" & cFilename '
' .....  '
End Sub

 

[tedaynui]

Const cFilename="ABC.xls"

Em thường dùng :
Dim cFilename As String
cFilename = ActiveWorkbook.Name
để thay cho dòng lệnh trên

TDN

 

[voda]

Em thường dùng :
Dim cFilename As String
cFilename = ActiveWorkbook.Name
để thay cho dòng lệnh trên

Theo mình nghĩ trường hợp này không thể viết như thế được. Vì file được mở không phải là file hiện hành.

 

[Nguyễn Duy Tuân]

Em thường dùng :
Dim cFilename As String
cFilename = ActiveWorkbook.Name
để thay cho dòng lệnh trên

TDN

À, nếu mà lấy tên file đang làm việc thì làm như bạn. Ví dụ ở đây là gọi một file khác nhưng trong cùng một đường dẫn.

 

[tedaynui]

Gởi Anh TuanVNUNI và Voda
Em xin lỗi vì không đọc kỹ. Đúng là file được mở chứ không phải file hiện hành.

TDN

 

[dvu58]

Tôi chưa rõ lắm về mục đính của bạn, tôi viết ví dụ này

Sub Openfile
Const cFilename="ABC.xls"
Dim cPath As String,Fullname As String
cPath= ActiveWorkbook.Path

Fullname= ActiveWorkbook.Path & "\" & cFilename
.....

End Sub

Mình thử rồi vẫn chưa thấy xuất hiện.
THôi, post lên nhờ TuanVNUNI xử lý dùm nhé. Mình dốt quá!

 

[thangcoi]

Tiện đây các cao thủ cho em hỏi nhờ một chút ! Khi làm việc với Exel mình muốn mở một file có đuôi bất kỳ để nhập số liệu (Tất nhiên số liệu này đã có sãn) ! Và các file này có đường dẫn không cố đinh ! Vậy làm sao để có thể hiện hộp thoại chọn file với đuôi mình mong muốn . Xin cảm ơn nhiêu !

 

[qminh_tdt]

mình cũng có trường hợp tương tự như DVU05 và mình cũng đã chèn đoạn code của anh TuanVNUNI mà cũng không cách nào open file được. Anh TuanVNUNI có thể hướng dẫn rõ hơn giúp. chạy thì không báo lỗi nhưng nó cứ tỉnh bơ như không có chuyện gì xảy ra cả.
Để rõ hơn, ý của mình là mở một file "luu du lieu.xls" nhưng mình không biết nó nằm ở đường dẫn nào vậy làm sao nó tìm ra và mở tập tin này được.
Mình là Lính mới tò te, nên nhờ các Sư Phụ giúp giùm

 

[dat2007]

Tôi tạo 1 CommandButton_Click() để mở 1 file có trong 1 thư mục nhất định (VD: "C:\Thư mục\file")

Bạn nào có thể giúp tôi viết code để các đường dẫn tự cập nhật tùy theo mỗi khi cài thư mục vào bất kỳ ổ dĩa nào.

VD: Khi "Thư mục\file" cài vào ổ dĩa D: thì đường dẫn tự cập nhật thành
"D:\Thư mục\file"

Xin cảm ơn các bạn

Sub pthSh()
  Dim fPath As String
  fPath = ThisWorkbook.Path & Application.PathSeparator & ThisWorkbook.Name
  MsgBox fPath
End Sub

Tiện đây các cao thủ cho em hỏi nhờ một chút ! Khi làm việc với Exel mình muốn mở một file có đuôi bất kỳ để nhập số liệu (Tất nhiên số liệu này đã có sãn) ! Và các file này có đường dẫn không cố đinh ! Vậy làm sao để có thể hiện hộp thoại chọn file với đuôi mình mong muốn . Xin cảm ơn nhiêu !

Sub UseFileDialogOpen() 
    With Application.FileDialog(msoFileDialogOpen) 
        .AllowMultiSelect = True 
        .Show 
    End With 
End Sub

__________________

 

[qminh_tdt]

Cám ơn Dat2007 đã hướng dẫn cho mình, nhưng hình như có một sự nhầm lẫn, ở đây mình muốn mở một file từ một file khác. Nói cách khác mình đang ở một file "A.xls" nhưng muốn mở một file khác là "B.xls" mà file này nếu bình thường nó sẽ ở địa chỉ cố định thì mình sẽ dùng code:
workbooks.open filename:=("duong dan\B.xls").
nhưng do nhu cầu, có thể đường dẫn này sẽ thay đổi, nếu mình viết địa chỉ cứng này thì sẽ không tìm ra file. Do đó mình cần một đọan code nào có thể tùy biến tìm ra file "B.xls" mà không phải ghi đường dẫn cố định.
Nhân tiện mình cũng muốn hỏi có đọan code nào cho phép mình tạo một tập tin (khi có điều kiện) theo tập tin mẫu đã được định dạng.

Hiện nay mình có một file phiếu xuất và dữ liệu được cập nhật vào một sheet khác nên tập tin ngày càng phình to rất nặng. do đó mình muốn tập tin được tự động tạo theo tập tin mẫu và tự động thay đổi tên tập tin, khi điều kiện là tháng hoặc năm thay đổi và dữ liệu được cập nhật vào file mới này.
Mong đuợc sự hướng dẫn của mọi người.

 

[kangoroo]

Cám ơn Dat2007 đã hướng dẫn cho mình, nhưng hình như có một sự nhầm lẫn, ở đây mình muốn mở một file từ một file khác. Nói cách khác mình đang ở một file "A.xls" nhưng muốn mở một file khác là "B.xls" mà file này nếu bình thường nó sẽ ở địa chỉ cố định thì mình sẽ dùng code:
workbooks.open filename:=("duong dan\B.xls").
nhưng do nhu cầu, có thể đường dẫn này sẽ thay đổi, nếu mình viết địa chỉ cứng này thì sẽ không tìm ra file. Do đó mình cần một đọan code nào có thể tùy biến tìm ra file "B.xls" mà không phải ghi đường dẫn cố định.

Cái này vẫn đòi hỏi bạn để 2 file đó cùng thư mục hoặc có "vị trí tương đối" ko đổi
ví dụ: nếu A là "duongdan\A.xls" thì B là "duongdan\duongdanB\B.xls"
Trong trường hợp đó thì chỉ cần sửa code lại tí xíu
Sub pthSh()
Dim fPath As String
fPath = ThisWorkbook.Path & Application.PathSeparator & "duongdanB" & Application.PathSeparator & "B.xls"
MsgBox fPath
End Sub

 

[haonlh]

File có đuôi bất kỳ phải được tạo từ Excel.
Nên mở Start\Search... của Windows mà tìm. Khi thấy tên file kết quả tìm, mở nó. Chú ý: nếu biểu tượng tên file không phải của Excel thì phải R.click và chọn Open With...

 

[qminh_tdt]

loại bỏ chức năng button Close [X] trên thanh menubar

Mình muốn bỏ chức năng của button Close [X] góc phải màn hình trên thanh menu bar. Các sư huynh có đoạn code nào để bỏ chức năng này hướng dẫn cho mình.

Mình muốn trên 1 cell dữ liệu trên cell này nhấp nháy để gây sự chú ý trên cell đó. Mình tìm hoài mà không biết làm sao được.

 

[msc0506]

Ví dụ đây bạn này :

bạn có thể thiên biến lại code của nó và nếu bạn thường mở ở 1 thư mục thì nhanh nhất là ở Textbox bạn nhạp đường dẫn tới thư mục đó vào value trong Thuộc tính của nó(F4)

Mở code xem nhé

 

[ongtrungducmx25]

bây giờ em muốn mở một file bất kỳ ở ổ đĩa c:\ từ excel có đường dẫn thì em phải viết code như thế nào .
vd: em muốn mở một file.swf thì phải làm sao hoặc mp3.........

 

[thangcoi]

Cho em xin hỏi chút bây giờ em có file Reinforced concrete.xla nằm ở một vị trí nào đó trong máy tính, bây giờ em muốn viết câu lệnh trong file Reinforced concrete.xla để tìm đường dẫn đến chính file đó. Thì dùng câu lệnh nào.
Lệnh Path = ActiveWorkbook.Path thì chỉ cho đường dẫn đến file *.xls hiện hành thôi chứ không cho đường dẫn vào file *.xla mà ta cài trong Add-Ins
Thanks!

 

[thangcoi]

Có vẻ đề tài này khá khó nhỉ . ??.
Mục đích của em là muốn truy tìm đường dẫn đến một file AutoCAD nằm cùng thư mục với file Reinforced concrete.xla vừa được load để chèn thư viện từ AutoCAD sang Exel và ngược lại là xuất dữ liệu từ Exel sang môi trường AutoCAD.