亂馬客

有時我們要使用Ado來直接讀取Excel檔案時，需要Sheet Name來當Table Name。

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\excelfile.xls;Extended Properties=""Excel 8.0;HDR=NO;IMEX=1;

select * from [" & GetExcelSheetName(“c:\excelfile.xls”) & "$]"

可以使用NPOI來讀取出該檔案的Sheet Name哦!

  Dim result As String = "Sheet1"
  If File.Exists(xlsFileName) Then
    '開啟Excel 
    Using fsExcel As New FileStream(xlsFileName, FileMode.Open, FileAccess.Read)
      Using workbook As New HSSFWorkbook(fsExcel)
        '只取第1個Sheet的Name
        result = workbook.GetSheetName(0)
      End Using
    End Using
  End If
  Return result
End Function

Hi, 

亂馬客Blog已移到了 「亂馬客​ : Re:從零開始的軟體開發生活」

請大家繼續支持 ^_^