可以利用系统中的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