發行項
09/24/2010

以指令碼工作處理 Excel 檔案

Integration Services 提供 Excel 連接管理員、Excel 來源和 Excel 目的地，以處理 Microsoft Excel 檔案格式試算表中儲存的資料。本主題所述的技術會使用指令碼工作取得有關可用 Excel 資料庫 (活頁簿檔案) 與資料表 (工作表與具名範圍) 的相關資訊。您可以輕鬆地修改這些範例，使其可與 Microsoft Jet OLE DB Provider 所支援的其他以檔案為基礎之資料來源搭配使用。

設定封裝以測試範例

範例 1：檢查 Excel 檔案是否存在

範例 2：檢查 Excel 資料表是否存在

範例 3：取得資料夾中 Excel 檔案的清單

範例 4：取得 Excel 檔案中資料表的清單

顯示範例的結果

[!附註]

如果您想要建立可更輕鬆地在多個封裝之間重複使用的工作，請考慮使用此指令碼工作範例中的程式碼做為自訂工作的起點。如需詳細資訊，請參閱＜開發自訂工作＞。

設定封裝以測試範例

您可以設定單一封裝以測試本主題中的所有範例。範例使用許多相同的封裝變數與相同的 .NET Framework 類別。

設定封裝與本主題中的範例搭配使用

在 Business Intelligence Development Studio 中建立新的 Integration Services 專案，並開啟預設封裝以進行編輯。
變數：開啟 [變數] 視窗並定義下列變數：
- 類型為 String 的 ExcelFile。輸入現有 Excel 活頁簿的完整路徑與檔案名稱。
- 類型為 String 的 ExcelTable。輸入以 ExcelFile 變數值命名之活頁簿中，現有工作表或具名範圍的名稱。此值區分大小寫。
- 類型為 Boolean 的 ExcelFileExists。
- 類型為 Boolean 的 ExcelTableExists。
- 類型為 String 的 ExcelFolder。輸入含有至少一個 Excel 活頁簿的資料夾完整路徑。
- 類型為 Object 的 ExcelFiles。
- 類型為 Object 的 ExcelTables。
Imports 陳述式：大部分的程式碼範例都需要您在指令碼檔案最上方匯入下列一或兩個 .NET Framework 命名空間：
- System.IO，處理檔案系統作業。
- System.Data.OleDb，開啟 Excel 檔案做為資料來源。
參考：從 Excel 檔案讀取結構描述資訊的程式碼範例，在指令碼專案中需要有 System.Xml 命名空間的參考。
請使用 [選項] 對話方塊中 [一般] 頁面上的 [指令碼語言] 選項，為指令碼元件設定預設的指令碼語言。如需詳細資訊，請參閱＜一般頁面＞。

範例 1 描述：檢查 Excel 檔案是否存在

此範例會判斷 ExcelFile 變數中指定的 Excel 活頁簿檔案是否存在，然後將 ExcelFileExists 變數的布林值設定為結果。您可以為封裝工作流程中的分支使用此布林值。

設定此指令碼工作範例

將新指令碼工作加入封裝，並將其名稱變更為 ExcelFileExists。
在 [指令碼工作編輯器] 的 [指令碼] 索引標籤上，按一下 [ReadOnlyVariables]，並使用下列其中一項方法輸入屬性值：
- 輸入 ExcelFile。
  
  - 或 -
- 按一下屬性欄位旁邊的省略符號 (…) 按鈕，然後在 [選取變數] 對話方塊中，選取 ExcelFile 變數。
按一下 [ReadWriteVariables] 並使用下列其中一項方法輸入屬性值：
- 輸入 ExcelFileExists。
  
  - 或 -
- 按一下屬性欄位旁邊的省略符號 (…) 按鈕，然後在 [選取變數] 對話方塊中，選取 ExcelFileExists 變數。
按一下 [編輯指令碼]，以開啟指令碼編輯器。
在指令碼檔案最上方加入 System.IO 命名空間的 Imports 陳述式。
加入下列程式碼。

範例 1 程式碼

Public Class ScriptMain
  Public Sub Main()
    Dim fileToTest As String

    fileToTest = Dts.Variables("ExcelFile").Value.ToString
    If File.Exists(fileToTest) Then
      Dts.Variables("ExcelFileExists").Value = True
    Else
      Dts.Variables("ExcelFileExists").Value = False
    End If

    Dts.TaskResult = ScriptResults.Success
  End Sub
End Class

public class ScriptMain
{
  public void Main()
  {
    string fileToTest;

    fileToTest = Dts.Variables["ExcelFile"].Value.ToString();
    if (File.Exists(fileToTest))
    {
      Dts.Variables["ExcelFileExists"].Value = true;
    }
    else
    {
      Dts.Variables["ExcelFileExists"].Value = false;
    }

    Dts.TaskResult = (int)ScriptResults.Success;
  }
}

範例 2 描述：檢查 Excel 資料表是否存在

此範例會判斷 ExcelTable 變數中指定的 Excel 工作表或具名範圍是否存在於 ExcelFile 變數中指定的 Excel 活頁簿檔案，然後將 ExcelTableExists 變數的布林值設定為結果。您可以為封裝工作流程中的分支使用此布林值。

設定此指令碼工作範例

將新指令碼工作加入封裝，並將其名稱變更為 ExcelTableExists。
在 [指令碼工作編輯器] 的 [指令碼] 索引標籤上，按一下 [ReadOnlyVariables]，並使用下列其中一項方法輸入屬性值：
- 輸入以逗號分隔的 ExcelTable 與 ExcelFile。
  
  - 或 -
- 按一下屬性欄位旁邊的省略符號 (…) 按鈕，然後在 [選取變數] 對話方塊中，選取 ExcelTable 與 ExcelFile 變數。
按一下 [ReadWriteVariables] 並使用下列其中一項方法輸入屬性值：
- 輸入 ExcelTableExists。
  
  - 或 -
- 按一下屬性欄位旁邊的省略符號 (…) 按鈕，然後在 [選取變數] 對話方塊中，選取 ExcelTableExists 變數。
按一下 [編輯指令碼]，以開啟指令碼編輯器。
在指令碼專案中加入 System.Xml 組件的參考。
在指令碼檔案最上方加入 System.IO 與 System.Data.OleDb 命名空間的 Imports 陳述式。
加入下列程式碼。

範例 2 程式碼

Public Class ScriptMain
  Public Sub Main()
    Dim fileToTest As String
    Dim tableToTest As String
    Dim connectionString As String
    Dim excelConnection As OleDbConnection
    Dim excelTables As DataTable
    Dim excelTable As DataRow
    Dim currentTable As String

    fileToTest = Dts.Variables("ExcelFile").Value.ToString
    tableToTest = Dts.Variables("ExcelTable").Value.ToString

    Dts.Variables("ExcelTableExists").Value = False
    If File.Exists(fileToTest) Then
      connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & fileToTest & _
        ";Extended Properties=Excel 8.0"
      excelConnection = New OleDbConnection(connectionString)
      excelConnection.Open()
      excelTables = excelConnection.GetSchema("Tables")
      For Each excelTable In excelTables.Rows
        currentTable = excelTable.Item("TABLE_NAME").ToString
        If currentTable = tableToTest Then
          Dts.Variables("ExcelTableExists").Value = True
        End If
      Next
    End If

    Dts.TaskResult = ScriptResults.Success
  End Sub
End Class

public class ScriptMain
{
    public void Main()
        {
            string fileToTest;
            string tableToTest;
            string connectionString;
            OleDbConnection excelConnection;
            DataTable excelTables;
            string currentTable;

            fileToTest = Dts.Variables["ExcelFile"].Value.ToString();
            tableToTest = Dts.Variables["ExcelTable"].Value.ToString();

            Dts.Variables["ExcelTableExists"].Value = false;
            if (File.Exists(fileToTest))
            {
                connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" +
                "Data Source=" + fileToTest + ";Extended Properties=Excel 8.0";
                excelConnection = new OleDbConnection(connectionString);
                excelConnection.Open();
                excelTables = excelConnection.GetSchema("Tables");
                foreach (DataRow excelTable in excelTables.Rows)
                {
                    currentTable = excelTable["TABLE_NAME"].ToString();
                    if (currentTable == tableToTest)
                    {
                        Dts.Variables["ExcelTableExists"].Value = true;
                    }
                }
            }

            Dts.TaskResult = (int)ScriptResults.Success;

        }
}

範例 3 描述：取得資料夾中 Excel 檔案的清單

此範例會使用在 ExcelFolder 變數值中指定的資料夾內所找到的 Excel 檔案清單，來填滿陣列，然後將陣列複製到 ExcelFiles 變數中。您可以使用 Foreach From Variable 列舉值來反覆運算陣列中的檔案。

設定此指令碼工作範例

將新指令碼工作加入封裝，並將其名稱變更為 GetExcelFiles。
開啟 [指令碼工作編輯器] 的 [指令碼] 索引標籤，按一下 [ReadOnlyVariables]，並使用下列其中一項方法輸入屬性值：
- 輸入 ExcelFolder
  
  - 或 -
- 按一下屬性欄位旁邊的省略符號 (…) 按鈕，然後在 [選取變數] 對話方塊中，選取 ExcelFolder 變數。
按一下 [ReadWriteVariables] 並使用下列其中一項方法輸入屬性值：
- 輸入 ExcelFiles。
  
  - 或 -
- 按一下屬性欄位旁邊的省略符號 (…) 按鈕，然後在 [選取變數] 對話方塊中，選取 ExcelFiles 變數。
按一下 [編輯指令碼]，以開啟指令碼編輯器。
在指令碼檔案最上方加入 System.IO 命名空間的 Imports 陳述式。
加入下列程式碼。

範例 3 程式碼

Public Class ScriptMain
  Public Sub Main()
    Const FILE_PATTERN As String = "*.xls"

    Dim excelFolder As String
    Dim excelFiles As String()

    excelFolder = Dts.Variables("ExcelFolder").Value.ToString
    excelFiles = Directory.GetFiles(excelFolder, FILE_PATTERN)

    Dts.Variables("ExcelFiles").Value = excelFiles

    Dts.TaskResult = ScriptResults.Success
  End Sub
End Class

public class ScriptMain
{
  public void Main()
  {
    const string FILE_PATTERN = "*.xls";

    string excelFolder;
    string[] excelFiles;

    excelFolder = Dts.Variables["ExcelFolder"].Value.ToString();
    excelFiles = Directory.GetFiles(excelFolder, FILE_PATTERN);

    Dts.Variables["ExcelFiles"].Value = excelFiles;

    Dts.TaskResult = (int)ScriptResults.Success;
  }
}

替代方案

您也可以使用 ForEach 檔案列舉值反覆運算資料夾中的所有 Excel 檔案，以代替使用指令碼工作將 Excel 檔案清單蒐集到陣列中的方式。如需詳細資訊，請參閱＜如何：使用 Foreach 迴圈容器來循環使用 Excel 檔案和資料表＞。

範例 4 描述：取得 Excel 檔案中的資料表清單

此範例會使用在 ExcelFile 變數值中指定的 Excel 活頁簿檔案內找到的工作表清單和具名範圍，來填滿陣列，然後將陣列複製到 ExcelTables 變數中。您可以使用 Foreach From Variable 列舉值來反覆運算陣列中的資料表。

[!附註]

Excel 活頁簿中資料表清單包含工作表 (具有 $ 後置詞) 及具名範圍。如果您必須只篩選清單中的工作表或具名範圍，必須加入其他程式碼以達成此目的。

設定此指令碼工作範例

將新指令碼工作加入封裝，並將其名稱變更為 GetExcelTables。
開啟 [指令碼工作編輯器] 的 [指令碼] 索引標籤，按一下 [ReadOnlyVariables]，並使用下列其中一項方法輸入屬性值：
- 輸入 ExcelFile。
  
  - 或 -
- 按一下屬性欄位旁邊的省略符號 (…) 按鈕，然後在 [選取變數] 對話方塊中，選取 ExcelFile 變數。
按一下 [ReadWriteVariables] 並使用下列其中一項方法輸入屬性值：
- 輸入 ExcelTables。
  
  - 或 -
- 按一下屬性欄位旁邊的省略符號 (…) 按鈕，然後在 [選取變數] 對話方塊中，選取 ExcelTables 變數。
按一下 [編輯指令碼]，以開啟指令碼編輯器。
在指令碼專案中，加入 System.Xml 命名空間的參考。
在指令碼檔案最上方加入 System.Data.OleDb 命名空間的 Imports 陳述式。
加入下列程式碼。

範例 4 程式碼

Public Class ScriptMain
  Public Sub Main()
    Dim excelFile As String
    Dim connectionString As String
    Dim excelConnection As OleDbConnection
    Dim tablesInFile As DataTable
    Dim tableCount As Integer = 0
    Dim tableInFile As DataRow
    Dim currentTable As String
    Dim tableIndex As Integer = 0

    Dim excelTables As String()

    excelFile = Dts.Variables("ExcelFile").Value.ToString
    connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & excelFile & _
        ";Extended Properties=Excel 8.0"
    excelConnection = New OleDbConnection(connectionString)
    excelConnection.Open()
    tablesInFile = excelConnection.GetSchema("Tables")
    tableCount = tablesInFile.Rows.Count
    ReDim excelTables(tableCount - 1)
    For Each tableInFile In tablesInFile.Rows
      currentTable = tableInFile.Item("TABLE_NAME").ToString
      excelTables(tableIndex) = currentTable
      tableIndex += 1
    Next

    Dts.Variables("ExcelTables").Value = excelTables

    Dts.TaskResult = ScriptResults.Success
  End Sub
End Class

public class ScriptMain
{
  public void Main()
        {
            string excelFile;
            string connectionString;
            OleDbConnection excelConnection;
            DataTable tablesInFile;
            int tableCount = 0;
            string currentTable;
            int tableIndex = 0;

            string[] excelTables = new string[5];

            excelFile = Dts.Variables["ExcelFile"].Value.ToString();
            connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" +
                "Data Source=" + excelFile + ";Extended Properties=Excel 8.0";
            excelConnection = new OleDbConnection(connectionString);
            excelConnection.Open();
            tablesInFile = excelConnection.GetSchema("Tables");
            tableCount = tablesInFile.Rows.Count;

            foreach (DataRow tableInFile in tablesInFile.Rows)
            {
                currentTable = tableInFile["TABLE_NAME"].ToString();
                excelTables[tableIndex] = currentTable;
                tableIndex += 1;
            }

            Dts.Variables["ExcelTables"].Value = excelTables;

            Dts.TaskResult = (int)ScriptResults.Success;
        }
}

替代方案

您也可以使用 Foreach ADO.NET 結構描述資料列集列舉值，反覆運算在 Excel 活頁簿檔案中的所有資料表 (也就是，工作表與具名範圍)，以代替使用指令碼工作將 Excel 資料表清單蒐集到陣列中的方式。如需詳細資訊，請參閱＜如何：使用 Foreach 迴圈容器來循環使用 Excel 檔案和資料表＞。

顯示範例的結果

如果您已在相同封裝中設定此主題中的每個範例，可以將所有的指令碼工作連接至其他顯示所有範例輸出的指令碼工作。

設定指令碼工作以顯示本主題中的範例輸出

將新指令碼工作加入封裝，並將其名稱變更為 DisplayResults。
依序連接這四個範例指令碼工作，好讓每個工作在前一個工作順利完成之後接著執行，然後將第四個範例工作連接至 DisplayResults 工作。
開啟 [指令碼工作編輯器] 中的 DisplayResults 工作。
在 [指令碼] 索引標籤中，按一下 [ReadOnlyVariables] 並使用下列其中一個方法，加入「設定封裝以測試範例」中的所有七個變數：
- 輸入每個變數名稱，並以逗號分隔。
  
  - 或 -
- 按一下屬性欄位旁邊的省略符號 (…) 按鈕，然後在 [選取變數] 對話方塊中，選取變數。
按一下 [編輯指令碼]，以開啟指令碼編輯器。
在指令碼檔案最上方加入 Microsoft.VisualBasic 與 System.Windows.Forms 命名空間的 Imports 陳述式。
加入下列程式碼。
執行封裝並檢查在訊息方塊中顯示的結果。

可顯示結果的程式碼

Public Class ScriptMain
  Public Sub Main()
    Const EOL As String = ControlChars.CrLf

    Dim results As String
    Dim filesInFolder As String()
    Dim fileInFolder As String
    Dim tablesInFile As String()
    Dim tableInFile As String

    results = _
      "Final values of variables:" & EOL & _
      "ExcelFile: " & Dts.Variables("ExcelFile").Value.ToString & EOL & _
      "ExcelFileExists: " & Dts.Variables("ExcelFileExists").Value.ToString & EOL & _
      "ExcelTable: " & Dts.Variables("ExcelTable").Value.ToString & EOL & _
      "ExcelTableExists: " & Dts.Variables("ExcelTableExists").Value.ToString & EOL & _
      "ExcelFolder: " & Dts.Variables("ExcelFolder").Value.ToString & EOL & _
      EOL

    results &= "Excel files in folder: " & EOL
    filesInFolder = DirectCast(Dts.Variables("ExcelFiles").Value, String())
    For Each fileInFolder In filesInFolder
      results &= " " & fileInFolder & EOL
    Next
    results &= EOL

    results &= "Excel tables in file: " & EOL
    tablesInFile = DirectCast(Dts.Variables("ExcelTables").Value, String())
    For Each tableInFile In tablesInFile
      results &= " " & tableInFile & EOL
    Next

    MessageBox.Show(results, "Results", MessageBoxButtons.OK, MessageBoxIcon.Information)

    Dts.TaskResult = ScriptResults.Success
  End Sub
End Class

public class ScriptMain
{
  public void Main()
        {
            const string EOL = "\r";

            string results;
            string[] filesInFolder;
            //string fileInFolder;
            string[] tablesInFile;
            //string tableInFile;

            results = "Final values of variables:" + EOL + "ExcelFile: " + Dts.Variables["ExcelFile"].Value.ToString() + EOL + "ExcelFileExists: " + Dts.Variables["ExcelFileExists"].Value.ToString() + EOL + "ExcelTable: " + Dts.Variables["ExcelTable"].Value.ToString() + EOL + "ExcelTableExists: " + Dts.Variables["ExcelTableExists"].Value.ToString() + EOL + "ExcelFolder: " + Dts.Variables["ExcelFolder"].Value.ToString() + EOL + EOL;

            results += "Excel files in folder: " + EOL;
            filesInFolder = (string[])(Dts.Variables["ExcelFiles"].Value);
            foreach (string fileInFolder in filesInFolder)
            {
                results += " " + fileInFolder + EOL;
            }
            results += EOL;

            results += "Excel tables in file: " + EOL;
            tablesInFile = (string[])(Dts.Variables["ExcelTables"].Value);
            foreach (string tableInFile in tablesInFile)
            {
                results += " " + tableInFile + EOL;
            }

            MessageBox.Show(results, "Results", MessageBoxButtons.OK, MessageBoxIcon.Information);

            Dts.TaskResult = (int)ScriptResults.Success;
        }
}

掌握 Integration Services 的最新狀態

若要取得 Microsoft 的最新下載、文件、範例和影片以及社群中的選定解決方案，請瀏覽 MSDN 或 TechNet 上的 Integration Services 頁面：

若要得到這些更新的自動通知，請訂閱該頁面上所提供的 RSS 摘要。

共用方式為

以指令碼工作處理 Excel 檔案

設定封裝以測試範例

設定封裝與本主題中的範例搭配使用

範例 1 描述：檢查 Excel 檔案是否存在

設定此指令碼工作範例

範例 1 程式碼

範例 2 描述：檢查 Excel 資料表是否存在

設定此指令碼工作範例

範例 2 程式碼

範例 3 描述：取得資料夾中 Excel 檔案的清單

設定此指令碼工作範例

範例 3 程式碼

替代方案

範例 4 描述：取得 Excel 檔案中的資料表清單

設定此指令碼工作範例

範例 4 程式碼

替代方案

顯示範例的結果

設定指令碼工作以顯示本主題中的範例輸出

可顯示結果的程式碼

請參閱

工作

概念

其他資源