vb中关于Excel的问题！

Question

一个简单的方法:
打开EXCEL,
录制一个复制字段的宏,
编辑这个宏,
就可以获得相应的代码.
再结合具体情况进行修改即可.

Answer 1

感谢您使用微软产品。 您可以使用Microsoft Excel 10.0 Object Library中的类和对象对Excel文件进行操作。请在您的VB 项目的Reference中加入Microsoft Excel 10.0 Object Library，在参考下例：打开应用程序目录下的Excel文件fred.xlsPrivate Sub Command1_Click()       'create an instance of Excel but it will be invisible        Set xl = New Excel.Application        xl.Visible = True 'make the excel application visible       xl.Workbooks.Add        xl.Workbooks.Open (App.Path & "\fred.xls")End Sub获取数据表中的数据，存储于二维数组中，您可以通过二维数组访问指定列的数据：Private Sub GetDataFromExcel()        Dim rng As Range        Dim temp()        Dim i As Integer, j As Integer  Set rng = xl.ActiveSheet.UsedRange  i = rng.Rows.Count  j = rng.Columns.Count  ReDim temp(1 To i, 1 To j)        temp = rng        Set rng = Nothing        ActiveWorkbook.Close  xl.Quit        Set xl = Nothing  For i = 1 To UBound(temp, 1)               For j = 1 To UBound(temp, 2)                      Debug.Print temp(i, j)               Next        NextEnd Sub另外，xl.ActiveSheet是Worksheet类的对象，您可以利用它的column属性获得Range对象类型的指定列，详细信息请参考以下链接：http://msdn.microsoft.com/library/default.asp?url=/library/en-us/owcvba10/html/ocproColumns.asp如果您只要在Excel内部复制字段，可以利用Range类对象的copy 方法，详细信息请参考以下链接：       http://msdn.microsoft.com/library/default.asp?url=/library/en-us/owcvba10/html/ocmthcopy.asp-        微软全球技术中心 VB技术支持本贴子以“现状”提供且没有任何担保，同时也没有授予任何权利。具体事项可参见使用条款(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。为了为您创建更好的讨论环境，请参加我们的用户满意度调查(http://support.microsoft.com/directory/worldwide/zh-cn/community/survey.asp?key=(S,49854782))。