MSCBSC 移動通信論壇
搜索
登錄注冊
網(wǎng)絡(luò)優(yōu)化工程師招聘專欄 4G/LTE通信工程師最新職位列表 通信實習(xí)生/應(yīng)屆生招聘職位

  • 閱讀：10600
  • 回復(fù)：28
 巧用Excel批量修改文件名
simball
銀牌會員
鎵嬫満鍙風(fēng)爜宸查獙璇? style=


 發(fā)短消息    關(guān)注Ta 

積分 2531
帖子 63
威望 20427 個
禮品券 5 個
專家指數(shù) 42
注冊 2006-12-4
專業(yè)方向 
回答問題數(shù) 0
回答被采納數(shù) 0
回答采納率 0%
  大 中 小
發(fā)表于 2009-07-11 16:23:44  只看樓主 
在工作中很多時候，我們都會遇到要給文件重新命名的情況。例如，勘查完后站點的照片，要按照站點名、照片類型來統(tǒng)一命名，方便歸檔和以后查找；設(shè)計完成后的圖紙由于甲方要求需要以一定的規(guī)則來命名。重命名幾個文件并不難，難就難在如果重命名的文件有幾百甚至幾千個，那么這其中所花費的時間就可想而知了。同時，在手動操作過程中也非常容易發(fā)生誤操作，若是一個文件名字沒取對，那它后面的文件說不定就全得重新改名字。
那么有沒有什么更簡單、直接的方法呢？下面的方法中，將介紹如果利用Excel中的VBA編程功能，實現(xiàn)文件名讀取到Excel工作表中，然后利用Excel強(qiáng)大的編輯和公式處理功能，對文件名進(jìn)行修改，然后保存在最終的文件中。
1.VBA程序的編制
為了方便用戶使用，我們采用加載宏編制用戶菜單的方式來進(jìn)行程序設(shè)計。采用加載宏文件的好處是加載宏對所有打開的EXCEL文件都生效，并且加載宏不受宏安全級的限制，也不會有宏運行的提示。下面具體介紹程序的編制過程：
新建一個Excel文件“示例.xls”，打開該文件，然后另存為文件“示例.xla”。打開生成的“示例.xla”，點擊菜單“工具->宏->Visual Basic編輯器”進(jìn)入VBA編輯窗口。
新建一個程序模塊“示例”，在其對應(yīng)的“代碼窗口”輸入代碼如圖1所示：

[attach]96135[/attach]


圖1


然后新建一個窗體“SelectDIR”，窗體的設(shè)計如下表所示：


[attach]96136[/attach]		控件類型
控件名稱
事件響應(yīng)
Label
LabelSelect
　
TextBox
TextBoxDIR
　
Button
Brower
Brower_Click()
Button
OK
OK_Click()
Button
Cancel
Cancel_Click()


各個控件所對應(yīng)的事件響應(yīng)如圖2所示：

[attach]96137[/attach]


圖2


最后為了確保每次打開該加載宏文件的時候都自動運行其中的VBA程序，還需要在“ThisWorkBook”所對應(yīng)的“代碼窗口”中輸入如圖3所示的代碼：

[attach]96138[/attach]


圖3


至此，VBA程序就設(shè)計編寫完成了，保存后就可以在實際中使用了。
2.VBA程序的使用
假定我們有十個站點（站點A~J）的勘查照片，每個站點均有“機(jī)房、AC、DC、電池、BTS機(jī)架1、BTS機(jī)架2、BTS機(jī)架3、走線架、天面1、天面2”十張照片�，F(xiàn)為了歸檔和查找的方便，需要將照片命名為“基站名_原始照片名”的格式。
首先新建一個Excel文件“示例.xls”，開打“示例.xls”和編制好的加載宏文件“示例.xla”，這時Excel菜單中會出現(xiàn)一個VBA程序生成的菜單，如圖4所示：

[attach]96139[/attach]


圖4


點擊菜單“示例->取文件名”，在彈出的文件夾選擇對話框中選擇好照片所在的目錄，點擊“確定”后照片的名稱和所在的路徑就提取到Excel表中的第A、B兩列中了，如圖5所示：

[attach]96140[/attach]


圖5


在Excel表的C列中用Excel函數(shù)做出規(guī)定格式的文件名，如圖6所示：

[attach]96141[/attach]


圖6


點擊菜單“示例->改文件名”，就可以完成所需的工作了，是不是很方便。

[ 本帖最后由 simball 于 2009-7-11 16:28 編輯 ]
掃碼關(guān)注5G通信官方公眾號,免費領(lǐng)取以下5G精品資料
  • 1、回復(fù)“YD5GAI”免費領(lǐng)取《中國移動：5G網(wǎng)絡(luò)AI應(yīng)用典型場景技術(shù)解決方案白皮書》
  • 2、回復(fù)“5G6G”免費領(lǐng)取《5G_6G毫米波測試技術(shù)白皮書-2022_03-21》
  • 3、回復(fù)“YD6G”免費領(lǐng)取《中國移動：6G至簡無線接入網(wǎng)白皮書》
  • 4、回復(fù)“LTBPS”免費領(lǐng)取《《中國聯(lián)通5G終端白皮書》》
  • 5、回復(fù)“ZGDX”免費領(lǐng)取《中國電信5G NTN技術(shù)白皮書》
  • 6、回復(fù)“TXSB”免費領(lǐng)取《通信設(shè)備安裝工程施工工藝圖解》
  • 7、回復(fù)“YDSL”免費領(lǐng)取《中國移動算力并網(wǎng)白皮書》
  • 8、回復(fù)“5GX3”免費領(lǐng)取《 R16 23501-g60 5G的系統(tǒng)架構(gòu)1》

    • 共獲得 1 次點評 我要點評

     
    [充值威望，立即自動到帳] [VIP貴賓權(quán)限+威望套餐] 另有大量優(yōu)惠贈送活動，請光臨充值中心
    充值擁有大量的威望和最高的下載權(quán)限，下載站內(nèi)資料無憂
    unicom_fj
    VIP會員
    鎵嬫満鍙風(fēng)爜宸查獙璇? style=


     發(fā)短消息    關(guān)注Ta 

    專家·高級勛章  
    積分 158975
    帖子 19406
    威望 2759885 個
    禮品券 54 個
    專家指數(shù) 433
    注冊 2006-10-27
    專業(yè)方向  IT
    回答問題數(shù) 0
    回答被采納數(shù) 0
    回答采納率 0%
      大 中 小
    發(fā)表于 2009-07-11 17:27:59 
    學(xué)習(xí)，學(xué)習(xí)。。。

    對本帖內(nèi)容的看法？ 我要點評

     
    [立即成為VIP會員，百萬通信專業(yè)資料立即下載，支付寶、微信付款，簡單、快速！]
    西關(guān)老王
    資深元老
    鎵嬫満鍙風(fēng)爜宸查獙璇? style=


     發(fā)短消息    關(guān)注Ta 

    積分 35310
    帖子 3312
    威望 12054 個
    禮品券 10 個
    專家指數(shù) 78
    注冊 2008-11-12
    專業(yè)方向  移動通信，編程開發(fā)
    來自 廣州
    回答問題數(shù) 0
    回答被采納數(shù) 0
    回答采納率 0%
      大 中 小
    發(fā)表于 2009-07-11 19:56:54 
    謝謝樓主的分享！我試過用VB寫重命名的工具，效果不如EXCEL方便。

    對本帖內(nèi)容的看法？ 我要點評

     
    最新通信職位：廣東通信人才網(wǎng) | 北京通信人才網(wǎng) | 上海通信人才網(wǎng) | 南京通信人才網(wǎng) | 西安通信人才網(wǎng) | 重慶通信人才網(wǎng) | 中國通信人才網(wǎng)
    anly1122334
    金牌會員
    鎵嬫満鍙風(fēng)爜宸查獙璇? style=


     發(fā)短消息    關(guān)注Ta 

    積分 6838
    帖子 499
    威望 18407 個
    禮品券 5 個
    專家指數(shù) 15
    注冊 2009-5-18
    專業(yè)方向  維護(hù)
    回答問題數(shù) 0
    回答被采納數(shù) 0
    回答采納率 0%
      大 中 小
    發(fā)表于 2009-07-13 09:44:48 
    O(∩_∩)O謝謝樓主。。。。。

    對本帖內(nèi)容的看法？ 我要點評

     
    熱點： 通信招聘職位 | 網(wǎng)絡(luò)優(yōu)化全集 | WCDMA精品 | TD-SCDMA學(xué)習(xí)資料 | EVDO | MGW媒體網(wǎng)關(guān)資料
    wanngbin
    銀牌會員
    鎵嬫満鍙風(fēng)爜宸查獙璇? style=


     發(fā)短消息    關(guān)注Ta 

    積分 2726
    帖子 197
    威望 18195 個
    禮品券 40 個
    專家指數(shù) -112
    注冊 2009-6-28
    專業(yè)方向  無線優(yōu)化
    回答問題數(shù) 0
    回答被采納數(shù) 0
    回答采納率 0%
      大 中 小
    發(fā)表于 2009-07-19 16:30:02 
    正是需要的東西

    對本帖內(nèi)容的看法？ 我要點評

     
    最新通信職位：廣東通信人才網(wǎng) | 北京通信人才網(wǎng) | 上海通信人才網(wǎng) | 南京通信人才網(wǎng) | 西安通信人才網(wǎng) | 重慶通信人才網(wǎng) | 中國通信人才網(wǎng)
    rebude
    金牌會員
    鎵嬫満鍙風(fēng)爜宸查獙璇? style=


     發(fā)短消息    關(guān)注Ta 

    積分 7876
    帖子 448
    威望 75201 個
    禮品券 25 個
    專家指數(shù) 80
    注冊 2008-1-4
    專業(yè)方向  GSM/WCDMA/LTE
    回答問題數(shù) 0
    回答被采納數(shù) 0
    回答采納率 0%
      大 中 小
    發(fā)表于 2009-07-29 10:27:11 
    能不能把做好的這個傳上來呀。先謝了��！

    對本帖內(nèi)容的看法？ 我要點評

     
    [2分鐘擁有VIP權(quán)限和充足威望，可下載站內(nèi)任何資料] [快速找到一份高薪的通信行業(yè)職位]
    wuqinglong110
    銀牌會員
    鎵嬫満鍙風(fēng)爜宸查獙璇? style=


     發(fā)短消息    關(guān)注Ta 

    積分 2575
    帖子 432
    威望 3874 個
    禮品券 8 個
    專家指數(shù) -42
    注冊 2009-7-15
    專業(yè)方向  通信-3G
    回答問題數(shù) 0
    回答被采納數(shù) 0
    回答采納率 0%
      大 中 小
    發(fā)表于 2009-08-01 10:31:32 
    excel確實很強(qiáng)大啊

    對本帖內(nèi)容的看法？ 我要點評

     
    熱點： 通信招聘職位 | 網(wǎng)絡(luò)優(yōu)化全集 | WCDMA精品 | TD-SCDMA學(xué)習(xí)資料 | EVDO | MGW媒體網(wǎng)關(guān)資料
    silentriver
    版主
    鎵嬫満鍙風(fēng)爜宸查獙璇? style=


     發(fā)短消息    關(guān)注Ta 

    C友·貢獻(xiàn)勛章   紀(jì)念勛章·七周年   C友·登錄達(dá)人   紀(jì)念勛章·四周年   紀(jì)念勛章·六周年   紀(jì)念勛章·八周年   紀(jì)念勛章·九周年   紀(jì)念勛章·十周年  
    積分 45284
    帖子 8664
    威望 1458084 個
    禮品券 3541 個
    專家指數(shù) -252
    注冊 2009-4-15
    專業(yè)方向  無線優(yōu)化
    回答問題數(shù) 0
    回答被采納數(shù) 0
    回答采納率 0%
      大 中 小
    發(fā)表于 2009-08-04 07:57:50 
    利用vb啊

    對本帖內(nèi)容的看法？ 我要點評

     
    [2分鐘擁有VIP權(quán)限和充足威望，可下載站內(nèi)任何資料] [快速找到一份高薪的通信行業(yè)職位]
    3196777
    金牌會員
    鎵嬫満鍙風(fēng)爜宸查獙璇? style=


     發(fā)短消息    關(guān)注Ta 

    積分 6746
    帖子 1057
    威望 12909 個
    禮品券 33 個
    專家指數(shù) -404
    注冊 2009-3-28
    專業(yè)方向  網(wǎng)優(yōu)工程師
    來自 江蘇
    回答問題數(shù) 0
    回答被采納數(shù) 0
    回答采納率 0%
      大 中 小
    發(fā)表于 2009-08-05 19:28:06  QQ
    謝謝LZ分享，學(xué)習(xí)了

    對本帖內(nèi)容的看法？ 我要點評

     
    [2分鐘擁有VIP權(quán)限和充足威望，可下載站內(nèi)任何資料] [快速找到一份高薪的通信行業(yè)職位]
    mvp158702914
    論壇元老



     發(fā)短消息    關(guān)注Ta 

    積分 15425
    帖子 2256
    威望 270291 個
    禮品券 18 個
    專家指數(shù) -1596
    注冊 2009-4-1
    專業(yè)方向  GSM+TD-SCDMA+WCDMA+CDMA2000
    回答問題數(shù) 0
    回答被采納數(shù) 0
    回答采納率 0%
      大 中 小
    發(fā)表于 2009-08-06 08:27:04 
    VBA啊，一直想學(xué)，一直沒時間，我很擅長VC++,c++,C,java........就是一直沒學(xué)vb、、、、

    對本帖內(nèi)容的看法？ 我要點評

     
    熱點： 通信招聘職位 | 網(wǎng)絡(luò)優(yōu)化全集 | WCDMA精品 | TD-SCDMA學(xué)習(xí)資料 | EVDO | MGW媒體網(wǎng)關(guān)資料
    mainstar
    VIP會員
    鎵嬫満鍙風(fēng)爜宸查獙璇? style=


     發(fā)短消息    關(guān)注Ta 

    積分 13408
    帖子 2557
    威望 228017 個
    禮品券 7 個
    專家指數(shù) 113
    注冊 2006-10-7
    專業(yè)方向  TD無線網(wǎng)優(yōu)
    回答問題數(shù) 0
    回答被采納數(shù) 0
    回答采納率 0%
      大 中 小
    發(fā)表于 2009-08-06 08:53:15  QQ
    呵呵，把做好的實例傳上來比較好哦

    對本帖內(nèi)容的看法？ 我要點評

     
    熱點： 通信招聘職位 | 網(wǎng)絡(luò)優(yōu)化全集 | WCDMA精品 | TD-SCDMA學(xué)習(xí)資料 | EVDO | MGW媒體網(wǎng)關(guān)資料
    suri
    金牌會員



     發(fā)短消息    關(guān)注Ta 

    積分 7679
    帖子 1524
    威望 11413 個
    禮品券 0 個
    專家指數(shù) 59
    注冊 2009-9-11
    專業(yè)方向  GSM網(wǎng)優(yōu)
    回答問題數(shù) 0
    回答被采納數(shù) 0
    回答采納率 0%
      大 中 小
    發(fā)表于 2009-10-15 14:50:30 
    收藏起來先

    慢慢研究

    對本帖內(nèi)容的看法？ 我要點評

     
    [2分鐘擁有VIP權(quán)限和充足威望，可下載站內(nèi)任何資料] [快速找到一份高薪的通信行業(yè)職位]
    imohto
    金牌會員



     發(fā)短消息    關(guān)注Ta 

    積分 5260
    帖子 805
    威望 7507 個
    禮品券 0 個
    專家指數(shù) -75
    注冊 2009-6-10
    專業(yè)方向  通信
    回答問題數(shù) 0
    回答被采納數(shù) 0
    回答采納率 0%
      大 中 小
    發(fā)表于 2009-11-05 10:22:55 
    兄弟，這個方法不錯，樓主對excel研究的比較深啊。

    對本帖內(nèi)容的看法？ 我要點評

     
    熱點： 通信招聘職位 | 網(wǎng)絡(luò)優(yōu)化全集 | WCDMA精品 | TD-SCDMA學(xué)習(xí)資料 | EVDO | MGW媒體網(wǎng)關(guān)資料
    libertine84
    高級會員
    鎵嬫満鍙風(fēng)爜宸查獙璇? style=


     發(fā)短消息    關(guān)注Ta 

    積分 1461
    帖子 301
    威望 8195 個
    禮品券 75 個
    專家指數(shù) -44
    注冊 2008-10-18
    專業(yè)方向  通信網(wǎng)絡(luò)服務(wù)
    來自 重慶郵電大學(xué)--通信工程
    回答問題數(shù) 0
    回答被采納數(shù) 0
    回答采納率 0%
      大 中 小
    發(fā)表于 2009-11-14 14:49:13  QQ
    學(xué)習(xí)，學(xué)習(xí)·······

    對本帖內(nèi)容的看法？ 我要點評





    黑夜給了我黑色的眼睛，我卻用它來尋找光明！
     
    [2分鐘擁有VIP權(quán)限和充足威望，可下載站內(nèi)任何資料] [快速找到一份高薪的通信行業(yè)職位]
    silentriver
    版主
    鎵嬫満鍙風(fēng)爜宸查獙璇? style=


     發(fā)短消息    關(guān)注Ta 

    C友·貢獻(xiàn)勛章   紀(jì)念勛章·七周年   C友·登錄達(dá)人   紀(jì)念勛章·四周年   紀(jì)念勛章·六周年   紀(jì)念勛章·八周年   紀(jì)念勛章·九周年   紀(jì)念勛章·十周年  
    積分 45284
    帖子 8664
    威望 1458084 個
    禮品券 3541 個
    專家指數(shù) -252
    注冊 2009-4-15
    專業(yè)方向  無線優(yōu)化
    回答問題數(shù) 0
    回答被采納數(shù) 0
    回答采納率 0%
      大 中 小
    發(fā)表于 2009-12-30 17:50:10 
    謝謝 原創(chuàng)內(nèi)容啊

    對本帖內(nèi)容的看法？ 我要點評





    總是放棄的人，借口會越來越多；善于挑戰(zhàn)的人，方法會越來越多。
     
    [2分鐘擁有VIP權(quán)限和充足威望，可下載站內(nèi)任何資料] [快速找到一份高薪的通信行業(yè)職位]

    快速回復(fù)主題    
    標(biāo)題
    內(nèi)容
     上傳資料請點左側(cè)【添加附件】

    當(dāng)前時區(qū) GMT+8, 現(xiàn)在時間是 2025-01-10 21:01:16
    渝ICP備11001752號  Copyright @ 2006-2016 mscbsc.com  本站統(tǒng)一服務(wù)郵箱：mscbsc@163.com

    Processed in 1.116556 second(s), 39 queries , Gzip enabled
    TOP
    清除 Cookies - 聯(lián)系我們 - 移動通信網(wǎng) - 移動通信論壇 - 通信招聘網(wǎng) - Archiver