求 EXCEL 导入方法 支持导入 xlsm 格式

[lyvscf]

现在需要支持导入 xlsm格式的导入方法，请各位赐教！ 谢谢！

[sinodzh]

你用07意思的office组件就可以了

[lyvscf]

 Dim dtTemp As DataTable
        Dim strSql, strConn As String
        Dim MyData As OleDbDataAdapter

        dtTemp = New DataTable

        strSql = "SELECT * FROM [" & strSheet & "$]"
        strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strExcelFile & ";Extended Properties=""Excel 8.0;IMEX=1"""

        Try
            MyData = New OleDbDataAdapter(strSql, strConn)

            MyData.Fill(dtTemp)
            MyData.Dispose()
        Catch ex As Exception
        End Try

        Return dtTemp

我用这个代码是报错的 MyData.Fill(dtTemp) 是否能给些具体提示，或是代码参考...

[单线程加锁]

连接没打开吧？strConn.Open() EXCEL的DLL也需要引用，代码供参考

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
using Microsoft.Office.Interop.Excel;
using System.IO;
using System.Reflection;
using System.Data.OleDb;

 private void Bingdgv()
        {
            if (FilePath == "")
            {
                return;
            }
            try
            {
                OleDbConnection conn = new OleDbConnection(ExcelConnStr);
                string sql = "select * from [Sheet1$]";
                if (conn.State == ConnectionState.Closed)
                {
                    conn.Open();
                }
                OleDbDataAdapter myCommand = new OleDbDataAdapter(sql, conn);
                ds = new DataSet();
                myCommand.Fill(ds, "[Sheet1$]");
                conn.Close();

                dgvData.DataMember = "[Sheet1$]";
                dgvData.DataSource = ds;
                conn.Close();
            }
            catch (Exception ex)
            {
                MessageBox.Show(ex.ToString());
                throw ex;
            }
        }

[lyvscf]

Provider=Microsoft.Ace.OleDb.12.0;Data Source=文件位置;Extended Properties='Excel 12.0;HDR=Yes' 已经解决了 谢谢各位了！