AccessVBA 思考是人類(lèi)進(jìn)步的階梯
網(wǎng)友提問(wèn):

回答網(wǎng)友問(wèn)題:
您的基礎(chǔ)沒(méi)打扎實(shí),所以這種基本問(wèn)題處理不了。
一、把多層文件夾下面的文件寫(xiě)入附件
這個(gè)問(wèn)題你沒(méi)問(wèn),但是,我預(yù)測(cè),如果我回答完你的問(wèn)題,就會(huì)有人問(wèn)我這個(gè)問(wèn)題,所以我先回答了。
關(guān)于寫(xiě)入附件我在2021年5月講過(guò)
https://www.bilibili.com/video/BV1th411m7Py

昨天,我講了如何遍歷多層文件夾中的文件
https://www.bilibili.com/read/cv25395260
接下來(lái)我在Access里面準(zhǔn)備一張表,表的數(shù)據(jù)類(lèi)型是這樣的

表內(nèi)容是這樣的,現(xiàn)在附件都是空的

還是桌面上有一個(gè)文件夾名字是“第一層”

下面的思維導(dǎo)圖是路徑,我們要得到藍(lán)色的文件(有后綴名的)

在Access的VBE編譯器中寫(xiě)

運(yùn)行sub shishi后,附件就都寫(xiě)進(jìn)去了


二、(你的問(wèn)題)把多層文件夾下面的文件寫(xiě)入表格
我又準(zhǔn)備一張表

什么都沒(méi)寫(xiě)

從您問(wèn)我的這個(gè)問(wèn)題來(lái)看知道用redim可能是問(wèn)了GPT或者在搜索引擎上查過(guò)

我們講動(dòng)態(tài)數(shù)組時(shí)說(shuō)過(guò),您聲明了動(dòng)態(tài)數(shù)組 ,那這個(gè)動(dòng)態(tài)數(shù)組是沒(méi)有元素的,也是沒(méi)有下標(biāo)的,所以你使用下標(biāo)必然會(huì)下標(biāo)越界

處理方法如下
我在遞歸函數(shù)中設(shè)置初始值,然后在回傳時(shí),讓i覆蓋原來(lái)的初始值0
第一次是到文件路徑時(shí),我將arr定義為1? arr(0+1) 每次加1就可以了
運(yùn)行sub shishi得到結(jié)果

如果只想要文件名稱(chēng),不要想路徑,只需要加個(gè)name


今天這事,我告訴您了,但是您明天還會(huì)遇到新的問(wèn)題,因?yàn)槟皇且粋€(gè)初學(xué)者,咱們都認(rèn)識(shí)好幾年了,您的基礎(chǔ)我了解。
做數(shù)學(xué)題買(mǎi)的練習(xí)冊(cè),像某而思、某猿、某業(yè)幫等,他們的參考答案大多會(huì)附上過(guò)程和思路。我給我大哥用他的練習(xí)冊(cè)時(shí)我都會(huì)撕掉答案,而那種只有結(jié)果沒(méi)有思路的答案,讓我大哥直接看都可以。
因?yàn)橹澜Y(jié)果,能推出過(guò)程,是一個(gè)人的能力。直接看了思路,我們知道了方法還會(huì)去思考方法嗎?但是,方法不止一種,只有不斷思考才能提高自己。
舉個(gè)例子:
某哥發(fā)了視頻,我能通過(guò)他的視頻細(xì)節(jié)推導(dǎo)出他身處位置
例如,我看到了廣某路,因?yàn)橹滥掣缭诒本楸本V某路有幾個(gè)

通過(guò)第二個(gè)線(xiàn)索,看到了某泰診所、便利蜂
通過(guò)便利蜂官網(wǎng)查地址在廣某路的店,假設(shè)有多個(gè),那還有第二個(gè)線(xiàn)索?某泰診所?

于是答案就出來(lái)了

PS: 我們確定人家視頻背景所在地是沒(méi)問(wèn)題的,但是要注意守法,不可無(wú)節(jié)制分析。
這就是我一直強(qiáng)調(diào)的,講原理沒(méi)錯(cuò),但是說(shuō)別人不講原理的才是真的坑人。直接看原理,就變成了背題,考試與工作是兩回事。
有的時(shí)候您問(wèn)GPT也得不到正確答案,GPT的答案哪來(lái)的?它也是從人類(lèi)這里聽(tīng)來(lái)的,如果人類(lèi)給出一個(gè)不完美的答案,現(xiàn)階段它只能復(fù)讀這個(gè)答案。就好比大家都知道我是孫氏英語(yǔ)創(chuàng)始人,但是GPT不知道,如果發(fā)帖的人多了,替我宣傳一下,GPT就知道了。
當(dāng)你了解了原理,就失去了嘗試,沒(méi)有了嘗試過(guò)程,人就失去鍛煉機(jī)會(huì),原理應(yīng)該是在經(jīng)過(guò)長(zhǎng)時(shí)間思考后仍然沒(méi)有答案,且無(wú)法繼續(xù)學(xué)習(xí)時(shí)再看的。一個(gè)人從出生我們就開(kāi)始為他提供足夠的物質(zhì)幫助(只提供所需不讓他存起來(lái)),讓他衣食無(wú)憂(yōu)(吃飯、睡覺(jué)、刷視頻),然后到35歲以后,不再給他提供任何幫助,他無(wú)法生存。

ExcelVBA及WordVBA篇:https://www.bilibili.com/video/BV1rt4y1a72y
Access篇+AccessVBA篇:https://www.bilibili.com/video/BV1tf4y117Sh