Excel 取得目前工作表名稱 by 程式

紀錄取得目前正在工作中工作表名稱 VBA 語法。

ActiveSheet.Name

ThisWorkbook.ActiveSheet.Name

Excel 複製 WorkSheet by 程式

在Excel中用程式的方法複製工作表並更新工作表名稱語法。

Sheets("2").Select
Sheets("2").Copy After:=Sheets("2")
Sheets("2 (2)").Select
Sheets("2 (2)").Name = "WorkSheetName"

在Excel 資料複製 by 程式

在Excel中用程式的方法複製資料的語法。

只複製儲存格的 Value

Worksheets("目的").Range("B2").Value=WorkSheets("來源").Range("A2").Value

Worksheets(2).Range("a1").Copy
Worksheets(1).Range("a1").PasteSpecial xlPasteValues

複製選擇的區塊

Worksheets("來源").Range("$B$3:$E$3").Copy _
Destination:=Worksheets("目的").Range("$A$3")

製儲存格的 Value 與格式

Worksheets("來源").Range("B2").Copy WorkSheets("目的").Range("A2")

製儲存格的 Value 與欄寬

Worksheets("來源").Range("A1").Copy
Worksheets("目的").Range("A1").PasteSpecial xlPasteColumnWidths
Worksheets("目的").Range("A1").PasteSpecial xlPasteValues

Connecting Sql Server 2005 Express by Excel 2003 VBA

記錄 Excell 2003 連接 Sql Server 2005 Express 的 connection string

IDE: Excell 2003 VBA
OS: Windows XP Professional
DB Server: Sql Server 2005 Express (安裝於本機)

在 Excell 2003 VBA 開發環境中，於[工具]->[設定引用項目]->選擇 Microsoft [ActiveX Data Object 2.8 Library] 引用 ADO 物件。連線的 Provider 使用 SQL Native Client。

Sql Server 2005 Express 驗證方式使用 Windows 驗證。

範例如下

Dim conStr As String

conStr = "Provider=SQLNCLI.1;" & _
         "Integrated Security=SSPI;" & _
         "Persist Security Info=False;" & _
         "Initial Catalog=xxx;" & _   
         "Data Source=local\sqlexpress"

' xxx 表資料庫名稱
' local 表本機