photosdematures.com

Ang GetOpenFilename ay isang pamamaraan na isa ring katangian ng FSO, ang pamamaraang ito ay ginagamit sa VBA upang makahanap ng isang tiyak na file na may isang pangalan ng file at piliin ito, ang mahalagang kadahilanan sa pamamaraang ito ay ang landas ng pangalan ng file na ibinigay upang buksan ito, kami maaaring ipasa ang landas ng pangalan ng file sa pagpapaandar o maaari nating hilingin sa gumagamit na ipakita ang isang landas ng file upang mapili ito.

Application ng Excel VBA.GetOpenFilename

Mayroong mga sitwasyon kung saan kailangan nating i-access ang tukoy na pangalan ng file at maaari itong posible sa VBA coding. Upang ma-access ang file, kailangan naming banggitin ang path ng folder pati na rin at pangalan ng file kasama ang extension ng file. Upang makuha ang pangalan ng file, maraming mga coder ang magbibigay ng VBA input box bilang mga pagpipilian upang ipasok ang file path at file name. Ngunit hindi ito isang mahusay na pagpipilian upang magsanay, dahil kapag nagpakita ka ng isang kahon ng pag-input sa harap ng gumagamit, hindi nila palaging naaalala ang path ng file, backslashes upang paghiwalayin ang isang folder mula sa isa pang folder, mga pangalan ng file, at extension ng mga file . Ginagawa nitong ang input na ibinigay ng magulo ang gumagamit at sa huli, lahat ay mai-ikot kahit na mayroong isang maliit na pagkakamali sa character space. Ang pinakamahusay na paraan ay palitan ang input box ng pamamaraan ng VBA na tinatawag na "GetOpenFileName".

Sa artikulong ito, ipapakita namin sa iyo kung paano gamitin ang VBA GetOpenFileName upang makuha ang pangalan ng file nang walang anumang mga error.

Ano ang ginagawa ng GetOpenFilename sa Excel VBA?

Pinapayagan ng VBA na "GetOpenFileName" ang gumagamit na piliin ang file mula sa computer na pinagtatrabahuhan natin nang hindi binubuksan ang file.

Sa tulong ng pamamaraang "GetOpenFileName", maaari talaga tayong magpakita ng isang kahon ng diyalogo sa harap ng gumagamit upang piliin ang file sa kinakailangang folder. Kopyahin ng "GetOpenFileName" ang lokasyon ng file kasama ang pangalan ng file at file extension.

Syntax ng GetOpenFilename sa Excel VBA

Tingnan ang syntax ng pamamaraang "GetOpenFilename".

• Filter ng File: Sa argument na ito, maaari naming tukuyin kung anong uri ng mga file ang ipapakita upang mapili. Halimbawa, kung binanggit mo ang "Excel Files, *. Xlsx" ipapakita lamang nito ang Excel Files na nai-save gamit ang excel extension na "xlsx", walang ibang mga file ang ipapakita. Kung balewalain mo ang lahat ng uri ng mga file ay ipapakita.
• Filter Index: Sa pamamagitan nito, pinaghihigpitan namin ang gumagamit upang piliin ang uri ng file. Maaari naming ilista ang tukuyin ang bilang ng mga filter na makikita sa ilalim Filter ng File.
• Pamagat: Ipinapakita nito ang piling pamagat ng kahon ng dayalogo ng file.
• Text ng Button: Para lamang ito sa Macintosh.
• Maramihang pagpili: TOTOO kung nais mong pumili ng maraming mga file o kung hindi man ang MALI. Ang default na halaga ay MALI.

Halimbawa ng GetOpenFilename sa Excel VBA

Nasa ibaba ang mga halimbawa ng Application ng VBA.GetOpenFilename.

Maaari mong i-download ang Template ng VBA GetOpenFilename Excel dito - VBA GetOpenFilename Excel Template

Sumulat tayo ng isang code upang makuha ang pangalan ng file at address ng path.

Hakbang 1: Simulan ang subroutine.

Code:

 Sub GetFile_Example1 () End Sub 

Hakbang 2: Ipahayag ang isang variable bilang String.

Code:

 Sub GetFile_Example1 () Madilim ang FileName Bilang String End Sub 

Hakbang 3: Para sa variable na ito, itatalaga namin ang GetOpenFileName.

Code:

 Sub GetFile_Example1 () Madilim ang FileName Bilang String FileName = Application.GetOpenFilename () End Sub 

Tulad ng ngayon, hindi ko pinansin ang lahat ng mga parameter.

Hakbang 4: Ipakita ngayon ang resulta ng variable sa kahon ng mensahe.

Code:

 Sub GetFile_Example1 () Madilim ang FileName Bilang String FileName = Application.GetOpenFilename () MsgBox FileName End Sub 

Patakbuhin ngayon ang code sa pamamagitan ng excel shortcut key F5 o manu-mano, ipapakita nito ang kahon sa dayalogo sa ibaba upang mapili ang file.

Pipili ako ng anumang isang file at mag-click sa ok.

Sa sandaling napili ko ang file ay nakakuha ako ng isang kahon ng mensahe sa VBA tulad nito. Ipinapakita nito ang buong landas ng folder at napiling pangalan ng file ng excel kasama ang extension ng file.

Tulad ng nakikita natin sa nasa itaas na imahe maaari naming makita ang lahat ng mga uri ng mga file. Ngayon ay idaragdag ko ang unang parameter ibig sabihin, ang File Filter bilang "Excel Files, *. Xlsx".

Code:

 Sub GetFile_Example1 () Madilim ang FileName Bilang String FileName = Application.GetOpenFilename (FileFilter: = "Excel Files, *. Xlsx") MsgBox FileName End Sub 

Ngayon kung tatakbo ko ang code na ito gamit ang F5 key o mano-mano, makikita ko lamang ang mga file ng Excel na may extension na "xlsx".

Tulad nito, maaari naming gamitin ang pamamaraang "VBA Application.GetOpenFileName" upang makuha ang path ng folder kasama ang Pangalan ng File at extension ng file.