VB与EXCEL

Question

我有现成的程序，给个邮箱吧，记得给分

Answer 1

感谢您使用微软产品。
 
      您也可以用Microsoft Excel 10.0 Object Library中的Range对象获取数据表中多行多列的数据，存储于二维数组中：
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
        Next
End Sub
 
详细信息请参考以下链接：
Range Property
http://msdn.microsoft.com/library/en-us/owcvba10/html/ocproRange.asp
Cells Property
http://msdn.microsoft.com/library/en-us/owcvba10/html/ocproCells.asp
 
详细信息请参考以下链接：
HOWTO: VB3: Create Excel Chart with OLE Automation from VB
http://support.microsoft.com/support/kb/articles/q112/4/17.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))。
======================