电子表格ACCESS2010 窗体中 怎么添加EXCEL控件?在VBA中用代码操作
1.ACCESS2010 窗体中 怎么添加EXCEL控件?在VBA中用代码操作
呵呵，初学者最容易犯的共性问题呀（大多功能还没学会，就想着美了）。。。
首先说第二个问题（个人觉得下面的效果也并不是很好，你自己根据效果看着办啦）：
ACCESS数据库选中文本框部分内容后，默认前景色与背景色对调，因此，你设置的前景色是什么颜色，在选中全部或部分内容后，选中区域的背景色就是什么。
ACCESS数据库对于预选择的组合框内容，默认是前景色与背景色的差色（混合色？），自己可以调节者试试看效果。
其次说第一个问题（个人觉得不应该这要操作EXCEL表，那还不如直接打开呢）：
外部数据--导入EXCEL电子表格，弹出窗口中：点【浏览】选中EXCEL表，选“通过创建链接表来链接到数据源”后【下一步】；然后根据提示完成设置。
窗体中添加“子窗体”，弹出窗口中选“表或查询”后【下一步】，找到链接的表，根据提示完成设置。
这样打开窗体后就可以在子窗体中看到EXCEL表了！虽然外观不一样，但操作的确实是EXCEL表。
2.怎样用VBA编程实现将记事本数据导入EXCEL
话说我记得VB里面里面有套东西叫做控件。就是在按钮的那一个BAR里，你右击后可以添加，如果你安装了WIN OFFICE系列，应该有微软EXCEL相关的插件，可以直接使用。拉入窗体后就如同一个EXCEL了。
话说如果你导入的表格的话。这个理论上不应该是普通的TXT格式，应该是有位置等信息的，也就是保存方式上遵循矩阵的概念，应该要告诉你维数，根据维数来定义变量。然后用FOR RANDOM读入，注入多维变量中。
-END
3.如何在VBA中将pivotTable控件的数据源设置到excel工作表上
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Sheet2!R1C1:R19C4", Version:=xlPivotTableVersion14).CreatePivotTable _
TableDestination：="[工作簿1]Sheet1!R4C2", TableName：="数据透视表1", DefaultVersion _
:=xlPivotTableVersion14
主要是这句。
你可以用EXCEL自带的宏录制功能来寻找你要的功能的VBA代码。
Sub 宏2()
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Sheet2!R1C1:R19C4", Version:=xlPivotTableVersion14).CreatePivotTable _
TableDestination：="[工作簿1]Sheet1!R4C2", TableName：="数据透视表1", DefaultVersion _
:=xlPivotTableVersion14
ActiveSheet.PivotTables（"数据透视表1"）.AddDataField ActiveSheet.PivotTables（"数据透视表1" _
）.PivotFields("Q")， "求和项：Q", xlSum
ActiveSheet.PivotTables（"数据透视表1"）.AddDataField ActiveSheet.PivotTables（"数据透视表1" _
）.PivotFields("W")， "求和项：W", xlSum
ActiveSheet.PivotTables（"数据透视表1"）.AddDataField ActiveSheet.PivotTables（"数据透视表1" _
）.PivotFields("E")， "求和项：E", xlSum
ActiveSheet.PivotTables（"数据透视表1"）.AddDataField ActiveSheet.PivotTables（"数据透视表1" _
）.PivotFields("R")， "求和项：R", xlSum
End Sub