奇怪的密码问题

eq800

 把密码去掉就没有问题了,可是这是自己的辛苦劳动的呀!

eq800

可以点击"取消",我就是不想它出现,让人觉得有点不满意

丸究阵引

QUOTE:

以下是引用爱歌学习在2007-1-6 11:29:20的发言：

能否请教一下规范的连接法？因为我也是门外汉，全凭自己的兴趣摸索的。

“自己连接自己”不规范，是指用ADO来处理Excel文件不规范呢，还是说这种组合语句不规范？

"INSERT into [DATA] SELECT * FROM [Excel 8.0;DATABASE=" & ThisWorkbook.FullName & ";HDR=yes].[Excel表$]"

应该先

"SELECT * FROM [Excel 8.0;DATABASE=" & ThisWorkbook.FullName & ";HDR=yes].[Excel表$]"

再

INSERT into [DATA]   ？要这样？

另外也想请教一下为什么会流行？

对我来讲，是比较偏好用SQL语句，这样很多时候可以省去循环，速度也不会慢太多。

不过，集合、字典的程序都看得懂，但就是不喜欢多练，所以遇到问题先想ADO，其次数组，而集合、字典的程序我好像还没独立编过一个的。

有些怀疑对ADO连Excel感兴趣的是不是都是我这样的非专业人士啊，为了偷懒?

呵呵，欢迎指教～

连接是指应用程序对数据源访问所必须的环境。

excel的应用程序(vba)和数据源都在工作簿里，ado 的连接实际是vba

对数据源即工作簿自己的连接。

丸究阵引

QUOTE:

以下是引用cxffxc在2007-1-6 12:51:23的发言：
把工程保护密码去掉如何?

工程不能被excel卸载，说明问题不轻！

爱歌学习

哦，谢谢指点！

虽然不规范，但也能解决大量的问题，而且在Excel中研究SQL语句的使用很有意思，估计不会轻易放弃喽～

eq800

小弟很菜,有办法解决吗?

eq800

我刚刚在office2003英文版上测试,还是有同样的问题

xiaoshengkoo

哦 ，没发现

丸究阵引

QUOTE:

以下是引用eq800在2007-1-6 17:40:42的发言：
小弟很菜,有办法解决吗?

这是一种错误,没的办法！

您的文件退出所残留的工程，FindWindow 找不到，GetObject取不到呵呵！

爱歌学习

解决办法：

模块中代码：

Public conn, rst

Sub ImportToAccess() '导入ACCESS
    Dim Sql$, Path$
    Sheets("2").Activate
    ARR = Range("A1:J" & [A65536].End(xlUp).Row)
    arrnum = UBound(ARR) '记录个数
    With rst
        .Open "SELECT * FROM DATA", conn, AdOpenForwardOnly, AdLockOptimistic
        For R = 1 To arrnum
            .AddNew
            For i = 1 To 10 '字段个数
                .Fields(i).Value = ARR(R, i)
            Next
            .Update
        Next
        .Close
    End With
End Sub

窗体中代码：

Private Sub CommandButton1_Click() '导入按钮
    Call ImportToAccess
End Sub

Private Sub CommandButton2_Click() '退出按钮
    Set rst = Nothing
    conn.Close: Set conn = Nothing
    ThisWorkbook.Close False
End Sub

Private Sub UserForm_Initialize() '窗体初始化
    Set conn = CreateObject("ADODB.Connection")
    Set rst = CreateObject("ADODB.Recordset")
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\DATA.MDB;Jet OLEDB:Database Password=" & "123"
End Sub

Private Sub UserForm_Terminate() '窗体关闭
    Set rst = Nothing
    conn.Close: Set conn = Nothing
End Sub

原来的连接方式：

"INSERT into [DATA] SELECT * FROM [Excel 8.0;DATABASE=" & ThisWorkbook.FullName & ";HDR=yes].[Excel表$]"

我认为是一种隐形连接，无法用 conn.Close: Set conn = Nothing 的形式断开连接，置空对象，改成上面的形式后，就可以做到了。

4XpoYIvK.rar (43.3 KB, 下载次数: 44)

2007-1-6 19:28 上传

点击文件名下载附件

[此贴子已经被作者于2007-1-26 22:55:05编辑过]