VSTO入门问题集

VBA万岁

VBA万岁 发表于 2015-12-14 11:15
你是说像这样吗？
cmd.CommandText = "SELECT distinct 年份 FROM 任务记录";

再增加两个相关链接：
1、C#导入EXCEL到数据库,用OLE连接EXCEL时一直报"外部表不是预期格式"
2、.net连接excel时，报错外部表不是预期的格式。

excelhomesnake

VBA万岁 发表于 2015-12-14 11:15
你是说像这样吗？
cmd.CommandText = "SELECT distinct 年份 FROM 任务记录";

我一般是使用sqlserver,不太清楚access.
但估计是sql语句中的表名错误,你可以排查一下

VBA万岁

excelhomesnake 发表于 2015-12-14 17:43
我一般是使用sqlserver,不太清楚access.
但估计是sql语句中的表名错误,你可以排查一下

终于用141、142楼的方法测试成功，效果如下：

VBA万岁

VBA万岁 发表于 2015-12-14 19:40
终于用141、142楼的方法测试成功，效果如下：

制作测试源码：

春阳

求教：请问vsto+vb如何设置单元格是否居中、边框、背景色等格式？用VBA的方法不行

VBA万岁

VBA万岁 发表于 2015-12-11 17:11
有空我试试。
我用VBA设计制作了一个实例如下：

改善了VBA版省市区三级联动，增加了将数据导入Access数据库的功能。VBA代码如下：

1. 
   
2. <BLOCKQUOTE>
   
3. <P>Private Sub UserForm_Initialize()
   
4. On Error Resume Next
   
5. Dim oxmlDoc As DOMDocument
   
6. Dim Node As IXMLDOMNode
   
7. Dim oXmlNodes As IXMLDOMNodeList
   
8. Set oxmlDoc = New DOMDocument
   
9. oxmlDoc.async = False
   
10.    
    
11. ComboBox1.Clear
    
12. r = Range("a65536").End(xlUp).Row
    
13. 'oxmlDoc.Load CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\省市区.xml"  '若将xml文件放于桌面,则启用此句
    
14. oxmlDoc.Load ThisWorkbook.Path & "\省市区.xml"
    
15. Set oXmlNodes = oxmlDoc.SelectNodes("/ProvinceCity")
    
16. For i = 0 To oXmlNodes(0).ChildNodes.Length - 1
    
17.     ComboBox1.AddItem oXmlNodes(0).ChildNodes(i).nodeName
    
18. Next
    
19. ComboBox1.ListIndex = 0
    
20. End Sub</P>
    
21. <P>Private Sub ComboBox1_Change()
    
22. On Error Resume Next
    
23. Dim oxmlDoc As DOMDocument
    
24. Dim Node As IXMLDOMNode
    
25. Dim oXmlNodes As IXMLDOMNodeList
    
26. Set oxmlDoc = New DOMDocument
    
27. oxmlDoc.async = False
    
28.    
    
29. ComboBox2.Clear
    
30. r = Range("a65536").End(xlUp).Row
    
31. oxmlDoc.Load ThisWorkbook.Path & "\省市区.xml"
    
32. Set oXmlNodes = oxmlDoc.SelectNodes("/ProvinceCity/" & ComboBox1.Value)
    
33. For i = 0 To oXmlNodes(0).ChildNodes.Length - 1
    
34.     ComboBox2.AddItem oXmlNodes(0).ChildNodes(i).Attributes(0).Text
    
35. Next
    
36. End Sub</P>
    
37. <P>Private Sub ComboBox2_Change()
    
38. On Error Resume Next
    
39. Dim oxmlDoc As DOMDocument
    
40. Dim Node As IXMLDOMNode
    
41. Dim oXmlNodes As IXMLDOMNodeList
    
42. Set oxmlDoc = New DOMDocument
    
43. oxmlDoc.async = False
    
44.    
    
45. ComboBox3.Clear
    
46. r = Range("a65536").End(xlUp).Row
    
47. oxmlDoc.Load ThisWorkbook.Path & "\省市区.xml"
    
48. Set oXmlNodes = oxmlDoc.SelectNodes("/ProvinceCity/" & ComboBox1.Value)
    
49. For i = 0 To oXmlNodes(0).ChildNodes.Length - 1
    
50.     If oXmlNodes(0).ChildNodes(i).Attributes(0).Text = ComboBox2.Value Then
    
51.         For Each Node In oXmlNodes(0).ChildNodes(i).ChildNodes
    
52.             ComboBox3.AddItem Node.Attributes(0).Text
    
53.         Next
    
54.     End If
    
55. Next
    
56. End Sub</P>
    
57. <P>Private Sub CommandButton1_Click()
    
58. On Error Resume Next
    
59. Dim oxmlDoc As DOMDocument
    
60. Dim Node As IXMLDOMNode
    
61. Dim oXmlNodes As IXMLDOMNodeList
    
62. Set oxmlDoc = New DOMDocument
    
63. oxmlDoc.async = False
    
64.    
    
65. Cells.Clear
    
66. [a1:c1] = Array("省", "市", "区"): [a1:c1].Font.Bold = True: [a1:c1].Font.Size = 20
    
67. r = Range("a65536").End(xlUp).Row
    
68. oxmlDoc.Load ThisWorkbook.Path & "\省市区.xml"
    
69. Set oXmlNodes = oxmlDoc.SelectNodes("/ProvinceCity")
    
70. For i = 0 To oXmlNodes(0).ChildNodes.Length - 1
    
71.     For j = 0 To oXmlNodes(0).ChildNodes(i).ChildNodes.Length - 1
    
72.         For k = 0 To oXmlNodes(0).ChildNodes(i).ChildNodes(j).ChildNodes.Length - 1
    
73.             n = n + 1
    
74.             Cells(r + n, 1) = oXmlNodes(0).ChildNodes(i).nodeName
    
75.             Cells(r + n, 2) = oXmlNodes(0).ChildNodes(i).ChildNodes(j).Attributes(0).Text
    
76.             Cells(r + n, 3) = oXmlNodes(0).ChildNodes(i).ChildNodes(j).ChildNodes(k).Attributes(0).Text
    
77.         Next
    
78.     Next
    
79. Next
    
80. End Sub</P>
    
81. <P>Private Sub CommandButton2_Click()
    
82.     Dim cat As ADOX.Catalog
    
83.     Dim tbl As ADOX.Table
    
84.     On Error Resume Next
    
85.     Kill Replace(ActiveWorkbook.FullName, "xlsm", "mdb")
    
86.     Set cat = New ADOX.Catalog
    
87.     cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Replace(ActiveWorkbook.FullName, "xlsm", "mdb") & ";"
    
88.     Set tbl = New ADOX.Table
    
89.     tbl.Name = ActiveSheet.Name
    
90.     tbl.Columns.Append "ID", adInteger
    
91.     tbl.Columns.Append Range("A1").Text, adVarWChar, 60
    
92.     tbl.Columns.Append Range("B1").Text, adVarWChar, 60
    
93.     tbl.Columns.Append Range("C1").Text, adVarWChar, 60
    
94.     cat.Tables.Append tbl
    
95.     Set cat = Nothing
    
96.    
    
97.     Dim cnn As ADODB.Connection
    
98.     Dim rst As ADODB.Recordset
    
99.     Dim i, Rw As Long, j As Integer
    
100.     Rw = Range("A65536").End(xlUp).Row
     
101.     Set cnn = New ADODB.Connection
     
102.     With cnn
     
103.         .Provider = "Microsoft.Jet.OLEDB.4.0"
     
104.         .Open Replace(ActiveWorkbook.FullName, "xlsm", "mdb")
     
105.     End With
     
106.     Set rst = New ADODB.Recordset
     
107.     rst.CursorLocation = adUseServer
     
108.     rst.Open Source:=ActiveSheet.Name, ActiveConnection:=cnn, CursorType:=adOpenDynamic, LockType:=adLockOptimistic, Options:=adCmdTable
     
109.     For i = 2 To Rw
     
110.         rst.AddNew
     
111.         For j = 1 To 3
     
112.             rst("ID") = i - 1
     
113.             rst(Cells(1, j).Value) = Cells(i, j).Value
     
114.         Next j
     
115.         rst.Update
     
116.     Next i
     
117.     rst.Close
     
118.     cnn.Close
     
119.     Set rst = Nothing
     
120.     Set cnn = Nothing
     
121.     MsgBox "省市区数据已全部导入数据库" & Replace(ActiveWorkbook.FullName, "xlsm", "mdb") & "中！"
     
122. End Sub
     
123. </P>

复制代码

VBA万岁

春阳 发表于 2015-12-15 10:53
求教：请问vsto+vb如何设置单元格是否居中、边框、背景色等格式？用VBA的方法不行

vsto+vb我不会，但VBA的方法是可以的。

VBA万岁

VBA万岁 发表于 2015-12-15 11:07
改善了VBA版省市区三级联动，增加了将数据导入Access数据库的功能。VBA代码如下：

八、如何用C#实现Excel工作表与外部文件的数据交换？

（一）如何将XML文件的数据导入Excel工作表？
            如146楼的VBA代码中的第29~146一样实现将“省市区.xml”文件中的数导入Excel工作表？

VBA万岁

VBA万岁 发表于 2015-12-16 16:36
八、如何用C#实现Excel工作表与外部文件的数据交换？

（一）如何将XML文件的数据导入Excel工作表？

百度到以下两个帖子：
1、读取ＸＭＬ数据写到ＸＬＳ里
2、在C#中怎么解析一个XML文档，把其中的数据存入相关的数据库表中

VBA万岁

VBA万岁 发表于 2015-12-16 16:36
八、如何用C#实现Excel工作表与外部文件的数据交换？

（一）如何将XML文件的数据导入Excel工作表？

（二）如何将Excel工作表数据导入Access数据库？
            如146楼VBA代码中第81~122句那样实现将工作表中的省市区数据导入Access数据库？