- 沒有新回應!
201312132210摘取網頁段落文字
所以想請問版上的高手,要如何用excel的功能,做到上述的要求?』
201310081028摘取交易所當日即時集中市場大盤資訊
201305312120Excel VBA外傳
能不能打開Excel,將引數值賦予開啟的工作簿?
例如:
Excel myBook.xls abc 123
這樣將myBook.xls打開後,將”abc”放在myBook.xls的Sheet1中A1儲存格, “123”在B1儲存格?
不能吧!
可是電腦世界真的沒有不可能的!而且「山不轉人轉」,只要繞個圈子同樣可以達到目的。
這就是要跟大家介紹的「啟動帶引數的Excel,並執行巨集」-【Excel VBA 747】最後一題。
因為這一題主要是VB Script,不是VBA,所以叫 [外傳] 。其中要件為:
1. 使用記事本或WordPad寫一個附加檔名為*.vbs,這個例子是wstestRem.vbs。內容如下
2. 根據上面的Script,要準備一個含有一個名稱為wshmacro巨集的工作簿。此例就叫做Q_Sample065.xls,而其巨集內容如下
假設路徑是d:/mydata/,檔名為Q_Sample065.xls
透過「執行」來執行, 格式如下:
d:/mydata/wshtest.vbs d:/mydata/Q_Sample065.xls 參數1 參數2...
也可以製作一個捷徑如圖
而執行結果會巨集會顯示輸入的參數值,如圖
從上面看會發現這裡的做法與書本的有兩點不同:
1. 本例是將參數放置在 [名稱] 中,不是放在儲存格。
2. 本例第一個參數是要開啟的檔案全路徑。
附件參考 [Excel VBA 747] 最後一題.
201301311517一個排列 (Permutation) 演算法
排列元素多於 8個時就會大於一張工作表的最大列數且運算費時,使用上應該以符合實際應用為考量。
201301292209Web查詢現在股票行情
- 改用QueryTables抓取個股行情表
- 工作表nameid更新,只要刪除舊資料,從http://brk.tse.com.tw:8000/isin/C_public.jsp?strMode=2及http://brk.twse.com.tw:8000/isin/C_public.jsp?strMode=4複製表格直接貼上去即可。
- 首先向所有網友致最大的歉意,先前兩版因使用保護工作表導致賣出時無法使用篩選功能。本版已經更正。
- 改善IE的操作,大幅改善更新的速度。
- 本版在XP、Vista、Excel2007、Excel2003、IE7及IE8測試均OK。
- 捨棄QueryTable物件,改使用 [摘取網頁資料 – getElementsByTagName]。
- 開啟網頁程序,請參考 [
201206141723UserForm的最大化、最小化、正常化與全螢幕
版本更新: (2012.06.14更新)
更新內容:新增全螢幕,按ESC鍵則unload userform。
Excel 的UserForm所提供的sizing非常死板,不方便動態改變其大小。因此需要自行程式控制。
以下的代碼就讓你的UserForm大小的變化十分具有彈性:
201204131820繪製風花圖 (Wind Rose Chart)
下載範例檔案 2011.05.03
- 適用於Excel 2007版本以上。
- 以m/s為風速單位
- 風向分成16方位
- 字體與線條全以黑色繪製,方便影印。
效果如下圖:
下載範例檔案 2011.05.03
如圖所示,紅色表大風區(風速大於10KTS者),綠色表中風區(風速大於3KTS且小於等於10KTS者),藍色為微風區(風速小於3KTS者)而深灰色表靜風百分比。其中靜風與風向不定以單一橫軸表示,中間為0值分隔,向左是屬靜風頻率,向右是為風向不定頻率。
下載範例檔案
當然這只是一個示例圖,其實還可以加上風速分布。而風向還有静風及風向不定兩種需要另行標示。
201110082258英漢字典
201105211010抓取證交所即時大盤指數及總委買委賣張數
201101221230自動新增與解除引用項目
對於VBE的操作必須核取「信任存取Visual Basic專案」選項及引用「Microsoft Visual Basic for Application Extensibility 5.3」,如此已經違背本篇內容的初衷了。所以我們對於有關VBIDE物件的相關屬性與方法均以Variant宣告,這樣我們就不必引用「Microsoft Visual Basic for Application Extensibility 5.3」了,至於核取「信任存取Visual Basic專案」選項,請參閱「Sendkeys萬能篇 -- 改變巨集安全層級」一文。