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 = CType(Dts.Variables("ExcelFiles").Value, String()) <<<<<<<<<<< error here For Each fileInFolder In filesInFolder results &= " " & fileInFolder & EOL Next results &= EOL results &= "Excel tables in file: " & EOL tablesInFile = CType(Dts.Variables("ExcelTables").Value, String()) <<<<<<<<<<< error here For Each tableInFile In tablesInFile results &= " " & tableInFile & EOL Next MessageBox.Show(results, "Results", MessageBoxButtons.OK, MessageBoxIcon.Information) Dts.TaskResult = Dts.Results.Success
Quote:Dts.Variables("ExcelFiles").Value
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง