2019年11月22日 星期五

用EXCEL VBA快速將大量的EXCEL檔轉為PDF檔

用EXCEL VBA快速將大量的EXCEL檔轉為PDF檔

這是EXCEL VBA進階課程的單元七的大量工作表的分割時講到,
剛好有學員問道如果想把大量的工作表,直接分割為PDF檔,
該怎麼做?其實只要一個For迴圈配合ExportAsFixedFormat方法,
就可以快速的將大量的工作表輸出為一個一個的PDF檔,
省去人工所要花費的時間,如果你每天都需要將工作表轉為PDF,
這個分享,應該可以幫到您很多的忙,節省大量時間。

其他可參考
如何用EXCEL VBA批次轉PDF檔  [連結]
[問題詢問]如何修改VBA讓EXCEL自動轉存成PDF時不會出現副檔名 [連結]
先學會如何用EXCEL VBA批次另存成2003與CSV等格式 [連結]
如何用EXCEL VBA自動批次匯入圖片與超連結 [連結]
如何增加EXCEL VBA按鈕 [連結]


預覽:


大數時代來臨如果不懂得裡用自動化方式處理資料,
處理資料將非常沒有效率,
至於處理大數據的方案很多,
但最通行也沒有額外費用的大概只剩VBA了。
而且開啟EXCEL就包含VBA,除了在Windows外,
MAC蘋果電腦一樣也有EXCEL,
VBA也可以沿用以前VB的資源

程式碼:
Public Sub 批次將工作表轉存為工作簿_PDF()
    If Dir("C:\Users\SCU\Desktop\VBA\*.xlsx") <> "" Then Call 刪除檔案
    
    Application.FileDialog(msoFileDialogFolderPicker).Show
    sPath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)

    Application.ScreenUpdating = False
    For i = 2 To 14
        x = Sheets("甲班").Cells(i, "I")
        Sheets(x).Copy
        ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sPath & "\" & x & ".pdf"
        ActiveWorkbook.Close False
    Next
    Sheets("甲班").Select
    Application.ScreenUpdating = True
End Sub


教學影音(完整版在論壇):

教學影音完整版在論壇:
https://groups.google.com/forum/#!forum/scu_excel_vba2_86

EXCEL VBA進階班的課程規劃

主要是延伸入門課,延伸資料庫、多工作表、工作簿、網路爬蟲、視覺化報表等應用並與Python程式協同應用
單元01_資料拆解相關(VBA)
單元02_輸入自動化與表單設計
單元03_用ADO匯入與匯出資料庫
單元04_大量工作表合併與分割
單元05_資料查詢(篩選與分割工作表)
單元06_下載網路資料(YAHOO股市)
單元07_活頁簿與檔案處理(工作表分割與合併活頁簿)
單元08_視覺化報表與快速匯入圖片

其他相關學習:
    函數東吳進修推廣部, EXCEL, EXCEL VBA 函數 程式設計 線上教學 excel vba 教學 excel vba指令教學 vba範例教學excel  excel vba教學視頻 函數教學 excel函數

    2019年10月27日 星期日

    如何用AUTOCAD將2D平面圖轉三視圖換為轉3D立體圖(以範例17為例)

    如何用AUTOCAD將2D平面圖轉三視圖換為轉3D立體圖(以範例17為例)

    結果畫面:




    今天主要講解範例17如何用AUTOCAD將2D三視圖轉3D圖
    學好AUTOCAD 3D其實很簡單
    我的教法是無需記憶很多的指令,被指令是舊方法,
    可以像使用EXCEL一樣簡單,只要學會上方工具列的設定與使用,
    接下來就很簡單了,
    漸進的把 2D學熟,可以參考:
    AUTOCAD 2D教學懶人包  [連結]
    再進步到 3D的設計,可以參考:
    AUTOCAD 3D 入門懶人包  [連結]

    這樣慢慢的就可以繪出 3D立體圖,並出圖。
    這題的重點是將三視圖,上、前、右視角圖匯出,
    接下來用基本的3D對齊,騎實用3D移動亦可,
    並使用差集指令就可以輕易的將2D圖轉成3D立體圖了,試試看吧!

    上課內容:
    01_完成畫面(範例17)

    02_2D三視圖

    03_在CAD中繪製2D三視圖

    04_在CAD中調整到東南視角與按拉

    05_利用3D對齊再差集

    06_3D對齊

    07_3D差集

    完整版教學影音:

    教學影音完整版在論壇:
    https://groups.google.com/forum/?hl=zh-TW#!forum/cad2012_3d_2014

    吳老師 2015/08/23

    相關影音:
    AUTOCAD2012 3D入門第2次上課分享
    http://terry55wu.blogspot.tw/2012/09/autocad2012-3d2.html

    AUTOCAD2012 3D入門第4次上課分享
    http://terry55wu.blogspot.tw/2012/09/autocad2012-3d4.html

    AUTOCAD2012 3D入門第6次上課分享
    http://terry55wu.blogspot.tw/2012/10/autocad2012-3d6.html

    AUTOCAD2010 3D入門第2次上課
    http://terry55wu.blogspot.com/2011/09/autocad-3d2.html

    AUTOCAD2010 3D入門第4次上課
    http://terry55wu.blogspot.com/2011/10/autocad-3d4.html

    AUTOCAD2010 3D入門第7次上課
    http://terry55wu.blogspot.com/2011/10/autocad-3d7.html

    AUTOCAD2010 3D入門第10次上課
    http://terry55wu.blogspot.com/2011/11/autocad-3d10.html

    AUTOCAD2010 3D入門第11次上課
    http://terry55wu.blogspot.com/2011/11/autocad-3d11.html

    AUTOCAD2010 3D入門第18次上課
    http://terry55wu.blogspot.com/2012/01/autocad-3d18.html

    新北市勞工大學AUTOCAD2010 3D入門成果展
    http://terry55wu.blogspot.com/2011/12/autocad-3d.html

    勞工大學開始選課囉!兩門課一早就額滿。
    http://terry55wu.blogspot.com/2011/07/blog-post.html

    autocad教學網站,autocad 3d 範例,autocad 2010 3d 教學,autocad 3d tutorial,autocad 3d 教程,autocad 3d教學影片,autocad 2d轉3d教學,autocad 2d轉3d指令,autocad 2d練習題,autocad 2D 證照

    2019年9月21日 星期六

    2019從北陸玩到京都旅行(三)黑部峽谷小火車與兼六園

    2019從北陸玩到京都旅行(三)黑部峽谷小火車與兼六園



    今天主要就兩個行程,兩個行程都不是原本規畫之內的,

    本來在繼續把合掌村的五箇山與菅沼走完,但因為天氣實在太熱

    老婆覺得合掌村也都長的很接近,於是我就想到備案,

    剛好查了黑部峽谷的天氣真的就比其他地方來的低個五度

    很適合避暑,但因為網路上查到的分享文章實在不多,

    似乎也不是很推薦的樣子,另外,坐過台灣的小火車,

    之前的感覺很不穩,時速也很慢,又有柴油味很重,實在不舒服,

    但這次我坐了黑部峽谷的小火車後,

    以上對小火車的負面觀感完全改觀,

    另外可能是我們一早大約不到十點就抵達小火車站,

    當時的人很少,買了車票就上車了。

    這天的行程的交通部分,需要先坐北陸新幹線從新高岡到黑部宇奈

    再搭富山鐵道的火車到宇奈月溫泉站,出站後左迴後轉後,

    會先看到泡足湯的地方,然後100公尺就抵達黑部車站了。

    抵達後排隊買票,一個人大約2820日圓,

    可以參考:

    我們只是避暑,所以坐到鐘釣車站,停留一小時左右,

    在那裏的溪邊泡泡腳,喝個啤酒就回程了。

    回來後去逛逛黑部川電力博物館,之後泡泡足湯

    就搭快車回黑部與耐心幹線站,時間還蠻多的,

    於是搭下午2:32的車直接再去逛逛金澤的兼六園了。

    兼六園逛完後轉往東山茶屋街,不免俗的吃個金箔冰淇淋

    就回飯店,放個東西又出門去逛附近的AEON商場了。


    當天的YOUTUBE影片清單



    一、黑部峽谷小火車



    一早吃完早餐就到對面新高岡車站搭上8:32分的車前往黑布宇奈站

    沒多久大約35鐘就可抵達黑部宇奈站

    出站後過馬路就是富山鐵道的新黑部站

    坐9:17分的直達車到宇奈月溫泉車站

    建議可以買來回套票日幣1100日幣(單程680日幣)

    來回套票長這樣

    上月台後就有很多人在月台上等車,面前就是一片綠油油的稻田

    不免俗的再老火車上來個合照

    感覺得出來火車很老了,但那部裝潢可都很新,

    並不會讓人有什麼安全上的問題

    大約不到半小時就抵達宇奈月溫泉車站

    左後迴轉200公尺就會抵達小火車車站

    車站旁就有免費可以泡足湯的地方,想說回程再來泡

    沒多久就到了小火車車站

    售票處人不多,一下子就買完票

    票價

    出發前合照,我們是坐普通車廂,後面是特別客車要加370日元

    再一張合照,後面還蠻多特別客車,其實侯蠻空的

    紅鐵橋加綠水

    紅鐵橋加綠水

    抵達黑薙車站

    這裡似乎只有黑薙溫泉

    抵達黑部水庫

    在貓又車站會車

    抵達鐘釣車站

    鐘釣車站附近景點不多

    河原露天風呂的溪邊,聽說溫泉要自己挖,想說泡冷泉就好

    泡腳很舒服,很多人來這泡泡水消暑

    喝個牌酒很棒

    這就是小火車的車頭,看到是川崎坐的電車頭,和阿里山是姊妹車

    順道可以進入黑部川電氣紀念館逛逛

    走累了剛好泡個足湯

    泡腳真舒服

    搭回新幹線站後,搭14:32前往金澤



    二、金澤兼六園

    出車站就會看到6號月台往兼六園,平日200假日100日圓

    等車的人不少

    不到三分鐘車就來了

    車上常有人穿和服

    下車後往前走就是售票口

    門票一人310日幣

    在兼六園合影

    很弱的噴水

    徽軫燈籠

    雁行橋

    明治紀念之標(日本武尊像)

    霞ヶ池

    霞ヶ池

    内橋亭

    ひがし茶屋街

    志摩藝妓屋(重要文化財)

    東山一久咖啡店

    東山一久咖啡店

    金澤烏鶏庵 東山店

    不免俗的來個金箔冰淇淋

    逛完天色已晚,回到金澤車站坐先幹線回新高岡車站

    回飯店放了東西就去旁邊的AEON商場超市逛逛

    AEON商場超市

    AEON商場超市

    AEON商場

    從遠處看東橫INN飯店,是新高岡車站附近最明顯的地標



    這一天等於一天跑好幾個行程,原本最不看好的黑部峽谷小火車,

    卻是讓人印象非常深刻,尤其夏天避暑應該是蠻好的,

    但冬天應該要加錢買特別車廂,否則應該會被凍到受不了吧。

    也許是我們早點出發,所以人很少,連回程幾乎都是我們兩人坐一車廂,

    但看上山的旅客幾乎坐滿,所以去坐黑部峽谷小火車建議還是要早點。

    做完小火車還有時間就把隔天的去兼六園提前,

    但說實在,有點失望,也許是之前去看過幾個林園,

    像是岡山後樂園,實在太美,兼六園似乎被比下去了,

    不是兼六園不更美,也許冬天來訪會有不同風景吧。



    TAG:日本旅行,心得分享, 交通, 吳老師, JR關西&北陸地區鐵路周遊券(七日券),黑部峽谷,小火車,兼六園