btcq.net
当前位置:首页 >> vB打开指定ExCEl文件 >>

vB打开指定ExCEl文件

可以利用系统中的excel打开 excel文件.excel 本身是支持参数的.你可以参照.Private Sub Command1_Click()Dim aa = Shell("C:\Program Files\Microsoft Office\OFFICE11\excel.exe c:\aa.xls", vbNormalFocus)End Sub

如果你插入的是窗体控件,很简单的.(activex控件比较麻烦,得用vba代码) 右键点车间(1)控件,设置格式,最后一个标签“控制”,单元格链接处点到比如sheet1的g1,确定.在sheet2的a1输入 =if(sheet1!g1,"车间(1)","车间(2)") 就可以了.

'这样可以不Set mybook = Workbooks.Open("c:\test\test.xlsx")

在vb 里引用 misrosoft excel 11.0 object library exportoexcel(vb 里打开excel ) 具体用text 控件给excel 的每行赋值,网上很多,不用我说了吧!good luck

Private Sub Command1_Click()Dim S() As String, i As Integer, j As IntegerDim xlAppDim xlBookDim xlSheet Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象 xlApp.DisplayAlerts = False '不显示对话框 Set xlBook = xlApp.

用shell打开excel文件?Private Sub List1_DblClick() Shell "d:\cw\" & List1.List(List1.ListIndex) End Sub

xlApplication.Workbooks("打开的Excel文件名").sheets("要显示的工作表名字").Activate

1、在工程中引用Microsoft Excel类型库:从"工程"菜单中选择"引用"栏;选择MicrosoftExcel 9.0 Object Library(EXCEL2000),然后选择"确定".表示在工程中要引用EXCEL类型库.2、在通用对象的声明过程中定义EXCEL对象:Dim

打开EXECLE,用宏录制,得到程序代码……在vb中调用 EXECLE api……希望能帮到你……

Open "c:\1.txt" For Input As 1Text1.Text = StrConv(InputB(LOF(1), 1), vbUnicode)Close

网站首页 | 网站地图
All rights reserved Powered by www.btcq.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com