注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

QuantsGeek量化极客

量化投资日记

 
 
 

日志

 
 

VB2008与Excel 2007互联语句参考  

2010-09-15 17:36:23|  分类: 量化投资IT开发技 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

需要注意4点问题:

1.首先记得要引用Microsoft.excel.library.12.0(12.对应的是office 2007)

2.在定义的时候记得使用microsoft.office.interop.excel.application,从12.0开始已经不识别excel.application,要严格写完。

3. 12.0已经开始识别.xlsx格式

4.12.0严格区分range.value,而以往仅仅只需要i=excelsheet.range("a2")即可

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim excelapp As Microsoft.Office.Interop.Excel.Application
        Dim excelworkbook As Microsoft.Office.Interop.Excel.Workbook
        Dim excelsheet As Microsoft.Office.Interop.Excel.Worksheet
        Dim i As String


        excelapp = CreateObject("excel.application")
        excelworkbook = excelapp.Workbooks.Open("C:\Documents and Settings\liqi\桌面\医药.xlsx", , False) '访问到工作簿:这个strfile 是文件的路径,我从打开文件对话框中得到的。
        excelsheet = excelworkbook.Sheets.Item(1)   '访问到工作表:item使用索引值来得到sheet对象的引用
        excelsheet.Activate()
        i = excelsheet.Range("a4").Value
        MsgBox(i)

    End Sub
End Class

以下部分是如何和Ado.Net连接的部分:
        '连接数据库
        Dim strConnectionString As String = "Provider=SQLOLEDB;" _
        & "Data Source=10.17.3.201;" _
        & "SDatabase=quansinvestment;" _
        & "User ID = SA;" _
        & "Password = iamahero"

        Dim objConnection As New OleDb.OleDbConnection(strConnectionString)

  评论这张
 
阅读(442)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017