使用OLEDB在文件名中使用额外点读取Excel csv文件

我有一个在文件名称点excel csv文件。 （这是行业的命名约定，所以我不能改变它。）我正在尝试使用OLEDB读取所有数据。 如果我从文件名删除点，我的命令工作。 如果没有，它说无效的对象。 如何忽略/解决文件名中的点？

文件名：ABCtesting银行Trail 2014年2月$ 18083.65.csv

我的代码：

Public Function GetAllData(ByVal FileName As String) As DataTable Try Dim dt As New DataTable Using con As New OleDbConnection With {.ConnectionString = String.Format(ConnectionNoHeader, Path.GetDirectoryName(FileName))} cn.Open() Dim SQLAdapter As OleDbDataAdapter = New OleDbDataAdapter() Dim cmd As OleDbCommand = New OleDbCommand("SELECT * FROM [" + Path.GetFileName(FileName) + "]", con) SQLAdapter.SelectCommand = cmd SQLAdapter.Fill(dt) End Using Return dt Catch Return Nothing End Try End Function 

Answer 1

http://social.msdn.microsoft.com/Forums/en-US/22302a07-d599-46c5-be19-6164156e7762/reading-a-csv-file-with-embedded-periods-in-the-file-name- using-oledbcommand？forum = adodotnetdataprovidersbuild议使用API​​调用GetShortPathName来使用旧的MS-DOS 8.3版本的文件名。

 Imports System.IO Imports System.Data.OleDb Imports System.Runtime.InteropServices 'Add this line' Public Class Form1 'Add the following line' Declare Unicode Function GetShortPathName Lib "kernel32.dll" Alias "GetShortPathNameW" (ByVal longPath As String, <MarshalAs(UnmanagedType.LPTStr)> ByVal ShortPath As System.Text.StringBuilder, <MarshalAs(UnmanagedType.U4)> ByVal bufferSize As Integer) As Integer Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim dtb As DataTable = GetAllData("C:\Junk\ABC Test bank Trail Feb 2014 $ 18083.65.csv") DataGridView1.DataSource = dtb End Sub Public Function GetAllData(ByVal FileName As String) As DataTable Try Dim dt As New DataTable Dim strcnn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & Path.GetDirectoryName(FileName) & "';Extended Properties=""text;HDR=No;FMT=Delimited""" Using con As New OleDbConnection With {.ConnectionString = strcnn} con.Open() Dim SQLAdapter As OleDbDataAdapter = New OleDbDataAdapter() If InStr(FileName, ".") <> InStrRev(FileName, ".") Then 'Add these lines' Dim sb As New System.Text.StringBuilder(256) 'Add these lines' Call GetShortPathName(FileName, sb, 256) 'Add these lines' FileName = sb.ToString 'Add these lines' End If 'Add these lines' Dim strcmd As String = "SELECT * FROM [" + Path.GetFileName(FileName) + "]" Dim cmd As OleDbCommand = New OleDbCommand(strcmd, con) SQLAdapter.SelectCommand = cmd SQLAdapter.Fill(dt) End Using Return dt Catch Return Nothing End Try End Function End Class