<?xml version="1.0" encoding="UTF-8"?><rss version="0.92">
<channel>
	<title>chijanzen 雜貨舖</title>
	<link>http://chijanzen.net/wp</link>
	<description>excel VBA 程式碼範例分享，生活記錄等....</description>
	<lastBuildDate>Sat, 04 Sep 2010 14:21:33 +0000</lastBuildDate>
	<docs>http://backend.userland.com/rss092</docs>
	<language>en</language>
	<!-- generator="WordPress/3.0.1" -->

	<item>
		<title>USB 硬碟出現「目錄或檔案路徑已經損毀」的簡易修複方法</title>
		<description><![CDATA[今天USB硬碟出現「目錄或檔案路徑已經損毀」的訊息， 一直無法存取檔案，還好以前學過一些DOS指令， 最後用chkdsk硬碟修復指令來修復 視窗左下角輸入框直接輸入cmd 或用 開始-&#62;執行-&#62;輸入cmd-&#62;按enter 在DOS視窗內輸入chkdsk 硬碟機代號: /f 讓硬碟自行修復，大約10秒鐘就完成了 chkdsk 參數如下: chkdsk [volume:][[Path] FileName] [/f] [/v] [/r] [/x] [/c] [/l[:size]] 參數 volume: 指定磁碟代號（冒號分隔）、安裝系統槽或卷名 [Path} FileName] 指定需要 chkdsk 檢查碎片整理的文件或文件集的位置和名稱 使用通配符（* 和 ?）可以指定多個文件。 /f 修復硬碟上的錯誤。必須鎖定硬碟。如果 chkdsk 無法鎖定磁碟區 則會顯示一條訊息，詢問您是否希望在下次重新啟動電腦時檢查該驅動器 /v 當檢查硬碟時，顯示所有目錄中每個文件的名稱 /r 找到壞軌區並恢復可讀取的信息。必須鎖定硬碟 /x 僅在 NTFS 上使用。如果必要，首先強制卸載磁碟區 該磁碟槽的所有打開指令&#38;檔案都無效。/x 還包含了/f 的功能 /i 僅隨 NTFS 使用。對索引項執行充分檢查，降低運行 chkdsk 的所用時間量 /c 僅隨 [...]]]></description>
		<link>http://chijanzen.net/wp/?p=410</link>
			</item>
	<item>
		<title>S2U2 - 仿HTC 動態天氣桌布(WQVGA)240*400</title>
		<description><![CDATA[Weather Wallpaper小工具 可以讓使用者在 S2U2 中設定動態天氣桌布， 而且不用再安裝任何的軟體就會自動更新天氣，桌布也會隨著天氣自動更新， 因為我的手機螢幕是 240*400所以只分享 240*400 桌布，心動了嗎.... 首先先下載動態桌布 Animated_Weather_Wallpapers_for_Omnia，或是另外一款黑色桌布 Animated_Weather_Wallpapers_black_for_Omnia2.rar 上述檔案解壓縮後將 Weather Wallpapers 資料夾及檔案複製到手機的記憶卡中任何位置(只要找的到路徑就好) 先關閉 S2U2程式(程式=&#62;S2Us=&#62; iLock2 關閉 S2U2)，才能進行下一步安裝 Weather_Wallpaper 接著下載 Weather_Wallpaper_4_0_12.cab 工具，上傳到手機用檔案總管執行，它會自己安裝到主記憶體中 到 程式=&#62;執行 WWconf 程式來設定 Weather Wallpapers ，大致設定請看以下圖示 WWconf 氣象來源有5個，我選第一個 rp5.ru，台灣各城市的代碼可到這查 http://rp5.tw/map/0/0/ 設定完成後重新啟用 S2U2 就能看到效果了 如果桌面看不到動畫，表示你的S2U2的桌布設  一直播放GIF動畫未啟用，開啟它就行了]]></description>
		<link>http://chijanzen.net/wp/?p=403</link>
			</item>
	<item>
		<title>Spb Mobile Shell內建天氣城市名改為中文的方法</title>
		<description><![CDATA[Spb Mobile Shell 3.5版已經內建天氣預報的功能，所以也沒必要再去裝 Spb weather 不過Spb Mobile Shell 3.5內建天氣預只能顯示英文程式名稱，如果要改為中文則要修改註冊表 方法如下: 設置好城市後用註冊表編輯器打開註冊表 HKEY_LOCAL_MACHINE----SOFTWARE----SPB software house 2-----spb mobile shell---weather 把底下的name裡的拼音改成中文即可]]></description>
		<link>http://chijanzen.net/wp/?p=397</link>
			</item>
	<item>
		<title>工作表另存為新檔</title>
		<description><![CDATA[索&#160;&#160; 引 D0018 主&#160;&#160; 題 工作表另存為新檔 版&#160;&#160; 本 &#62;= 14.0(Office 2010) 說&#160;&#160; 明 本範例將活頁簿中某個工作表另存為新檔 參&#160;&#160; 考 var tabPane1 = new WebFXTabPane( document.getElementById( "tab-pane-1" ) ); tabPane1.addTabPage( document.getElementById( "tab-page-2" ) ); Code Sub&#160;SaveSheet()'以下程式碼試用&#160;Excel&#160;200~2010版Dim&#160;wks&#160;As&#160;Worksheet&#160;&#160;&#160;&#160;Set&#160;wks&#160;=&#160;ActiveSheet&#160;&#160;&#160;&#160;With&#160;wks&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;If&#160;Val(Application.Version)&#160;&#60;&#160;12&#160;Then&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;'Excel&#160;版本&#160;97-2003&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;'xlWorkbookNormal&#160;-4143&#160;一般活頁簿&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;FileExtStr&#160;=&#160;&#34;.xls&#34;:&#160;FileFormatNum&#160;=&#160;-4143&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;Else&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;Select&#160;Case&#160;.Parent.FileFormat&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;'xlOpenXMLWorkbook&#160;51&#160;開啟&#160;XML&#160;活頁簿&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;Case&#160;51:&#160;FileExtStr&#160;=&#160;&#34;.xlsx&#34;:&#160;FileFormatNum&#160;=&#160;51&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;Case&#160;52:&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;If&#160;.Parent.HasVBProject&#160;Then&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;'xlOpenXMLWorkbookMacroEnabled&#160;52&#160;開啟&#160;XML&#160;活頁簿巨集啟用&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;FileExtStr&#160;=&#160;&#34;.xlsm&#34;:&#160;FileFormatNum&#160;=&#160;52&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;Else&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;FileExtStr&#160;=&#160;&#34;.xlsx&#34;:&#160;FileFormatNum&#160;=&#160;51&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;End&#160;If&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;End&#160;Select&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;End&#160;If&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;.Copy&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;Application.DisplayAlerts&#160;=&#160;False&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;ActiveWorkbook.SaveAs&#160;.Parent.Path&#160;&#38;&#160;&#34;\&#34;&#160;&#38;&#160;.Name&#160;&#38;&#160;FileExtStr,&#160;FileFormatNum&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;Application.DisplayAlerts&#160;=&#160;True&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;ActiveWorkbook.Close&#160;SaveChanges:=False&#160;&#160;&#160;&#160;End&#160;WithEnd&#160;Sub tabPane1.addTabPage( document.getElementById( "tab-page-7" ) ); Code 無]]></description>
		<link>http://chijanzen.net/wp/?p=393</link>
			</item>
	<item>
		<title>讓檔案以獨佔方式在Excel應用程式中執行</title>
		<description><![CDATA[索&#160;&#160; 引 D0017 主&#160;&#160; 題 讓檔案以獨佔方式在Excel應用程式中執行 版&#160;&#160; 本 &#62;= 12.0(Office 2007) 說&#160;&#160; 明 本範例建立一個Application 物件應用程式事件程序監控使用者是否執行開啟&#34;舊檔&#34;或開啟&#34;新檔&#34;的動作；如果執行開啟&#34;舊檔&#34;就會在另Excel應用程式視窗開啟 該檔，如果執行開啟&#34;新檔&#34;則自動關閉該檔 參&#160;&#160; 考 var tabPane1 = new WebFXTabPane( document.getElementById( "tab-pane-1" ) ); tabPane1.addTabPage( document.getElementById( "tab-page-1" ) ); Code Option&#160;ExplicitDim&#160;WLshtApp&#160;As&#160;New&#160;xlsClass&#160;&#160;&#160;'引用到class　 Private&#160;Sub&#160;Workbook_Open()&#160;&#160;&#160;&#160;Call&#160;close_othert_xls&#160;&#160;&#160;&#160;Set&#160;WLshtApp.xlsEvents&#160;=&#160;ApplicationEnd&#160;Sub　 tabPane1.addTabPage( document.getElementById( "tab-page-2" ) ); Code Sub&#160;close_othert_xls()&#160;&#160;&#160;&#160;Dim&#160;wbk&#160;As&#160;Workbook&#160;&#160;&#160;&#160;For&#160;Each&#160;wbk&#160;In&#160;Application.Workbooks&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;If&#160;wbk.Name&#160;&#60;&#62;&#160;ThisWorkbook.Name&#160;Then&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;MsgBox&#160;&#34;程式執行階段，其他檔案將先行關閉&#34;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;wbk.Close&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;End&#160;If&#160;&#160;&#160;&#160;Next&#160;wbkEnd&#160;Sub tabPane1.addTabPage( document.getElementById( "tab-page-5" ) ); Code Name:xlsClass Option&#160;ExplicitDim&#160;ExcelApp&#160;As&#160;ApplicationPublic&#160;WithEvents&#160;xlsEvents&#160;As&#160;Application　 Private&#160;Sub&#160;xlsEvents_NewWorkbook(ByVal&#160;Wb&#160;As&#160;Workbook)&#160;&#160;&#160;&#160;MsgBox&#160;&#34;目前不允許開新檔案&#34;,&#160;,&#160;&#34;警示&#34;&#160;&#160;&#160;&#160;Wb.CloseEnd&#160;Sub　 Private&#160;Sub&#160;xlsEvents_WorkbookOpen(ByVal&#160;Wb&#160;As&#160;Workbook)&#160;&#160;&#160;&#160;Dim&#160;wbkname&#160;As&#160;String&#160;&#160;&#160;&#160;If&#160;Wb.Name&#160;&#60;&#62;&#160;ThisWorkbook.Name&#160;Then&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;MsgBox&#160;&#34;程式執行中，&#34;&#160;&#38;&#160;Wb.Name&#160;&#38;&#160;_&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#34;檔案將另以Excel視窗來開啟&#34;,&#160;,&#160;&#34;警示&#34;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;wbkname&#160;=&#160;Wb.FullName&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;Wb.Close&#160;SaveChanges:=False&#160;&#160;&#160;&#160;'放棄所有對此活頁簿的變更。&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;Set&#160;ExcelApp&#160;=&#160;CreateObject(&#34;Excel.Application&#34;)&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;ExcelApp.Visible&#160;=&#160;True&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;ExcelApp.Workbooks.Open&#160;wbkname&#160;&#160;&#160;&#160;End&#160;IfEnd&#160;Sub　 tabPane1.addTabPage( document.getElementById( "tab-page-6" [...]]]></description>
		<link>http://chijanzen.net/wp/?p=391</link>
			</item>
	<item>
		<title>下載網頁上超連結網頁</title>
		<description><![CDATA[索&#160;&#160; 引 J0003 主&#160;&#160; 題 下載網頁上超連結網頁 版&#160;&#160; 本 &#62;= 10.0(Office 2002) 說&#160;&#160; 明 Document 物件中的Links 集合物件可獲得HTML 標籤中 HREF 屬性的集合，本範例利用Links 集合物件下載網頁中所有超連結網頁，本範例也做了可以預覽網頁的功能 參&#160;&#160; 考 API函數:URLDownloadToFile&#160; var tabPane1 = new WebFXTabPane( document.getElementById( "tab-pane-1" ) ); tabPane1.addTabPage( document.getElementById( "tab-page-1" ) ); Code Option&#160;Explicit　 Private&#160;Sub&#160;Workbook_Open()&#160;&#160;&#160;&#160;FormShowEnd&#160;Sub　 tabPane1.addTabPage( document.getElementById( "tab-page-2" ) ); Code 'Option&#160;ExplicitPrivate&#160;Declare&#160;Function&#160;URLDownloadToFile&#160;Lib&#160;&#34;urlmon&#34;&#160;Alias&#160;_&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#34;URLDownloadToFileA&#34;&#160;(ByVal&#160;pCaller&#160;As&#160;Long,&#160;_&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;ByVal&#160;szURL&#160;As&#160;String,&#160;ByVal&#160;szFileName&#160;As&#160;String,&#160;_&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;ByVal&#160;dwReserved&#160;As&#160;Long,&#160;ByVal&#160;lpfnCB&#160;As&#160;Long)&#160;As&#160;Long　 Sub&#160;FindHtm(sURL&#160;As&#160;String)&#160;&#160;&#160;&#160;Dim&#160;IE&#160;As&#160;New&#160;InternetExplorer&#160;&#160;&#160;&#160;Dim&#160;oDoc&#160;As&#160;New&#160;MSHTML.HTMLDocument&#160;&#160;&#160;&#160;Dim&#160;i&#160;As&#160;Integer&#160;&#160;&#160;&#160;IE.navigate&#160;sURL&#160;&#160;&#160;&#160;Do&#160;While&#160;IE.ReadyState&#160;&#60;&#62;&#160;READYSTATE_COMPLETE&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;UrlForm.Label1.Caption&#160;=&#160;&#34;網頁下載中請稍候......&#34;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;DoEvents&#160;&#160;&#160;&#160;Loop&#160;&#160;&#160;&#160;UrlForm.Label1.Caption&#160;=&#160;&#34;&#34;&#160;&#160;&#160;&#160;'引用&#160;Document&#160;對象&#160;&#160;&#160;&#160;Set&#160;oDoc&#160;=&#160;IE.Document&#160;&#160;&#160;&#160;'獲取以順序排列的HTML&#160;標籤中所有&#160;Links&#160;對象的集合。&#160;&#160;&#160;&#160;For&#160;i&#160;=&#160;0&#160;To&#160;oDoc.Links.Length&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;On&#160;Error&#160;Resume&#160;Next&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;If&#160;Right(oDoc.Links(i).href,&#160;3)&#160;=&#160;&#34;htm&#34;&#160;Or&#160;_&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;Right(oDoc.Links(i).href,&#160;4)&#160;=&#160;&#34;html&#34;&#160;Then&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;'href:獲取目標URL(完整網址)&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;UrlForm.ListBox1.AddItem&#160;oDoc.Links(i).href&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;End&#160;If&#160;&#160;&#160;&#160;Next&#160;i&#160;&#160;&#160;&#160;Set&#160;oDoc&#160;=&#160;Nothing&#160;&#160;&#160;&#160;Set&#160;IE&#160;=&#160;NothingEnd&#160;Sub　 '下載檔案Sub&#160;saveHtm(sURL&#160;As&#160;String,&#160;sPath&#160;As&#160;String)&#160;&#160;&#160;&#160;f&#160;=&#160;GetFileName(sURL)&#160;&#160;&#160;&#160;'將網際網路上的下載資料儲存至檔案&#160;&#160;&#160;&#160;returnValue&#160;=&#160;URLDownloadToFile(0,&#160;sURL,&#160;sPath&#160;&#38;&#160;f,&#160;0,&#160;0)&#160;&#160;&#160;&#160;UrlForm.Label1.Caption&#160;=&#160;&#34;網頁下載完成&#34;End&#160;Sub　 '取檔名Function&#160;GetFileName(sText&#160;As&#160;String)&#160;As&#160;String&#160;&#160;&#160;&#160;Dim&#160;pos&#160;As&#160;Integer&#160;&#160;&#160;&#160;Do&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;GetFileName&#160;=&#160;Mid(sText,&#160;pos&#160;+&#160;1)&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;pos&#160;=&#160;InStr(pos&#160;+&#160;1,&#160;sText,&#160;&#34;/&#34;)&#160;&#160;&#160;&#160;Loop&#160;While&#160;pos&#160;&#62;&#160;0End&#160;Function　 Sub&#160;FormShow()&#160;&#160;&#160;&#160;UrlForm.Show&#160;0End&#160;Sub　 tabPane1.addTabPage( document.getElementById( "tab-page-3" ) [...]]]></description>
		<link>http://chijanzen.net/wp/?p=390</link>
			</item>
</channel>
</rss>
