Perton 網誌: 2011/10

分解會計科目、會計名稱的技巧

這是一個 Excel 使用函數的技巧，應用函數 LEN()、LENB()的差異，正確地取得所需要的資料。

LEN() ：可取得字串的字數長度，中英文字字數都是算為 1
LENB()：可取得字串的Byte長度，英文字算為 1，中文字算為 2

	A
1	1010現金	LEN() =>6, LENB() =>8
2	100201第一銀行	LEN() =>10, LENB() =>14

1010	=LEFT(A1, 2*LEN(A1) – LENB(A1))
現金	=RIGHT(A1, LENB(A1) – LEN(A1))
100201	=LEFT(A2, 2*LEN(A2) – LENB(A2))
第一銀行	=RIGHT(A2, LENB(A2) – LEN(A2))

掃瞄多頁文件，儲存到一個檔案中 !!

可以使用外接掃瞄設備，Scan 文件內容並存檔的軟體工具程式，一般來說有：
1. Paint (小畫家)
2. 掃瞄器與數位相機精靈 (附屬應用程式)
3. Microsoft Office Document Imaging
4. HP 有一工具軟體，也可以做到一檔多頁的功能。

但是，大都程式只能掃一頁就要存成一個檔案；若是多頁文件就無法儲存在同一個檔案裏面。

以下說明，使用 Microsoft Office Document Imaging 來操作，該如何做到一檔多頁的存取。

1. 開啟 Microsoft Office Document Imaging

** 可以自訂掃瞄內容的環境

**掃瞄文件的尺寸，假若不是正規常用的A4，也可以設定特定尺寸的寬高值。

2. 要儲存多頁文件，記得將提示掃描其他頁面(P) 選項加以勾選起來

3. 每一頁文件掃瞄完成後，就是有提示已掃描的頁數，及繼續或完成的按鈕可用。

如何將檔案儲放在 Google Docs(文件)中？

要將檔案儲放在 Google Docs(文件)中，

首先要有 GMail 帳號
進 Google 網站 (http://www.google.com/)
選擇文件功能
點選進入欲存放檔案的資料夾中(沒有，則可以自行創建)
從local 資料區，點選要上傳的檔案，並拖拉到 Google 文件視窗中，放開；檔案就開始上傳，下面是上傳過程的截圖
上傳完成後，勾選該檔案以設定”共享”
將上述的 Link 字串複製下來。
進入 Fackbook，新加 Link。
(這方式和上圖中的 Fackbook 有不同的效果)
點選 Link 後的效果：

C/C++ 編譯器選項

HelloWorld.cpp 編譯的方式

cl HelloWorld.cpp => 會有額外的錯誤訊息
cl /EHsc HelloWorld.cpp => 可避免產生額外的錯誤訊息
cl /clr HelloWorld.cpp

cl 編譯器的選項，可參考相關文件

假設，有一 XML 檔案(MENU_CHT.xml) 內容如下：
-----------------------------------------------------------
<?xml version="1.0" encoding="utf-8"?>
<MENU>
<A prgkey="BA" caption="基礎工程" enable="true">
    <A1 prgkey="PB" caption="公用資料" enable="true">
    …
    </A1>
</A>
… (含 A 元素，共有 21個子元素)

</MENU>
-----------------------------------------------------------

使用 VBA 程式來讀取，各式指令將取得不同的結果值，要注意哦

    Set XMLDoc = New MSXML2.DOMDocument
    strFileXML = ActiveWorkbook.Path & "\" & "MENU_CHT.xml"
    intState = XMLDoc.Load(strFileXML)      ' intState 數值說明; (-1) 成功
    If intState Then                                  'MsgBox "讀取 XML 成功"
        Set xFirst = XMLDoc.FirstChild
'        MsgBox xFirst.nodeName              ==> xml
'
        Set xRoot = XMLDoc.documentElement
'        MsgBox xRoot.nodeName             ==> MENU

'        MsgBox XMLDoc.childNodes        ==> 2
'        MsgBox xRoot.childNodes           ==> 21

        For i = 1 To Level1nodes.Length
            ' 取得元素內容
            Set Level1node = Level1nodes.NextNode
'            MsgBox Level1node.nodeName

            ' 取得屬性內容
            Set Level1Attr = Level1node.Attributes
            'MsgBox Level1Attr.Length

            For a = 1 To Level1Attr.Length
                Set nodeAttr = Level1Attr.Item(a - 1)
'                MsgBox nodeAttr.nodeName & " -- " & nodeAttr.Text
'                nodeAttr.nodeName             ==> prgkey
'                nodeAttr.Text                      ==> BA
                strAttr = strAttr & nodeAttr.Text & vbTab
            Next
        Next i

設定SQL Server連線使用限制

設定方法如下：

雙擊區域網路圖樣(右下角)

VBS 為Excel 資料自動排序的用法

想要用VBS 為Excel 資料自動排序，需要注意到幾個重點：

要排序的 Excel 檔名，不可含有中文字
要為排序資料事先建立範圍名稱(Range Name)
範圍名稱(Range Name)也不可以使用中文字
VBS 程式中，要注意到 objRange.Sort 函式的使用語法及參數位置

以範例說明如下：

ERP_Sort_公告編號_A_Q.vbs
-----------------------------------------------------------
Const xlAscending = 1
Const xlYes = 1

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Open("C:\ERP\ERP_On-Line_Notice.xls")
' Worksheets 編號由 1起算
Set objWorksheet = objWorkbook.Worksheets(4)
Set objRange = objWorksheet.UsedRange
Set objRange2 = objExcel.Range("AnnounceNo")
Set objRange3 = objExcel.Range("A")
Set objRange4 = objExcel.Range("Q")

objRange.Sort objRange2, xlAscending, objRange3, , xlAscending, objRange4, xlAscending, xlYes
------------------------------------------------------------

資料參考：Tips and Tricks for Scripting Microsoft Office Applications

DB Suspect

Suspect 這字就字意來說，是不可信的或是有危險的。

來看下上面這圖示，在 SQL Server 下建置有很多的資料庫，其中不少資料庫名稱的右邊出現 (Suspect) 字樣。

就像 Suspect 一樣，這些被標出 Suspect 字樣的資料庫，是因為它們的資料庫檔案存放在外接硬碟中，而且這時該外接硬碟也沒有正確地連接在電腦上，所以 SQL Server 才找不到這些資料庫，而標示出 Suspect.

訂閱：文章 (Atom)

Perton 網誌

網頁