excel中怎么运行vbs代码（如何利用vbs打开excel.）

本文目录

• 如何利用vbs打开excel.
• 如何用VBS往Excel中写入一段VBA，然后调用该VBA执行操作，最后删除VBA并保存Excel结果文件
• excel vbs 判断为某一行选中后，执行代码
• excel的vbs宏怎么写
• vbs或者vb操作excel
• vbs代码求助在Excel能运行
• 求代码解释！在VBS中调用EXCEL!!!
• 希望高手写个独立于excel的VBS代码主要实现以下功能
• 如何用程序往excel中导入vbs
• 求VBS控制EXCEL代码！

如何利用vbs打开excel.

VBS打开Excel常见方法

1. dim oExcel,oWb,oSheet Set oExcel= CreateObject("Excel.Application") Set oWb = oExcel.Workbooks.Open("E:\其他\新装电话表.xls") Set oSheet = oWb.Sheets("Sheet1") MsgBox oSheet.Range("B2").Value ’#提取单元格B2内容 ’..... 

2. 如果是XP系统，可以使用如下代码 ：Dim objFileDlg Set objFileDlg = CreateObject("UserAccounts.CommonDialog") objFileDlg.Filter = "Excel File (*.xls) |*.xls" If objFileDlg.ShowOpen Then msgbox "您选择的文件是：" & objFileDlg.FileName & vbCrLf End If 

如何用VBS往Excel中写入一段VBA，然后调用该VBA执行操作，最后删除VBA并保存Excel结果文件

可以这样实施，你写好你的代码，然后在  ThisWorkbook 中写下面的语句调用写好的程序代码就可以直接执行了    将整个程序模块写好了保存为VBA加载宏，  使用定时软件定时运行这个加载宏就可以执行你的程序了  但EXCEL要设置为启用所有宏 即不对宏代码进行拦截 否则不能自动执行     如果还不明白可以问我

Private Sub Workbook_Open()

  Application.ScreenUpdating = False    ’关闭屏幕更新

      On Error Resume Next

    写好的程序代码名

Application.ScreenUpdating = True

End Sub

excel vbs 判断为某一行选中后，执行代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim ColumnMax As LongColumnMax = Rows("1:1").Cells.Count    If Target.Cells.Count = ColumnMax And Target.Rows.Count = 1 Then    MsgBox "选中了一行"    Else    MsgBox "未选中一行"    End IfEnd Sub’以上代码判断只选中了一行才为真值，选中了两个及以上的整行都为假值，你想要什么样的结果，可以选参考增加判断条件

excel的vbs宏怎么写

打开后窗口如下插入模块简单绝对值函数，双击模块1在器输入测试函数 输入=myabs(A3)回车，这里是vbs入门示例，更多功能需要自我修炼。

vbs或者vb操作excel

我很在行这样的文件处理，但是你提供的信息不完整。我给你个大致的思路。确保若打开某一文件，数据就能看见——即不用点其他sheet。建一新Excel，也存到该文件夹。仅打开该新Excel，同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：Sub Find()Application.ScreenUpdating = FalseDim MyDir As StringMyDir = ThisWorkbook.Path & "\"ChDrive Left(MyDir, 1) ’find all the excel filesChDir MyDirMatch = Dir$("*.xls")DoIf Not LCase(Match) = LCase(ThisWorkbook.Name) ThenWorkbooks.Open Match, 0 ’openActiveSheet.Copy Before:=ThisWorkbook.Sheets(1) ’copy sheetactivesheet.name = replace(match,".xls","")Windows(Match).ActivateActiveWindow.Close 0End IfMatch = Dir$Loop Until Len(Match) = 0Application.ScreenUpdating = TrueEnd Sub在此界面直接按F5运行此宏，所有文件的工作表都复制到这个新的工作簿中（这是粗体部分的作用）。你可以用=SUM(Sheet2:Sheet18B2)来求这几个Sheet的B2的和。第二个要求，假设你每个文件都在单元格A1或者A列，可以用以上类似方法把所有记录提取到一个工作表中，然后进入宏界面，插入如下代码：Function chf(xStr As String) As StringDim i, j As IntegerDim xArr() As StringxArr = Split(xStr, ",")For i = 0 To UBound(xArr)j = InStr(xArr(i), "-")If j 》 0 Thenchf = chf & "," & Mid(xArr(i), j + 1, 5) - Left(xArr(i), j - 1) + 1Elsechf = chf & "," & 1End IfNext ichf = Right(chf, Len(chf) - 1)End Function回到Excel，在B2输入=chf(A2)公式向下复制。然后点B列，右键，复制，再右键，选择性粘贴，数值；再点菜单的数据，分列，以分隔符分列，下一步，选中逗号，完成。（这些当然也可以通过宏直接完成的）

vbs代码求助在Excel能运行

你的这个循环没起到什么作用啊。B1又没发生变化，C列不都是同一个值么？你直接说说希望什么效果吧。

求代码解释！在VBS中调用EXCEL!!!

Excel 开发人员参考 Workbooks.Open 方法 打开一个工作簿。语法表达式.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad)WorkBooks.Open(strPath,3,,,"123","123") 参数的意思是 open(strpath 这个路径, 打开同时更新链接,,密码 123, 读写密码123") 所以， 把后面的 两个123 去掉, 就可以了WorkBooks.Open(strPath,3)

希望高手写个独立于excel的VBS代码主要实现以下功能

说了这么多，觉得是在“曲线救国”，好累呀。直接在VB器中完成不就得了。如果怕别人看到代码，可以对代码进行封装或者隐藏代码。

如何用程序往excel中导入vbs

如果你要的功能是在安装的机器上Excel中运行修改Excel文档的话，那么就把VBS改成相应的VB(基本上改动不大)用COM实现；如果你要VBS中的功能能随Excel文件一起用的话，那么就把VBS改成VBA(Excel中的宏)来实现。

求VBS控制EXCEL代码！

哥们，这个我有一个间接地方法可以实现，就看你能不能听懂了。1.你拿到的代码肯定是咋microsoft visual basic下的模块1上看到的，那么你双击这个界面的sheet1，看右边的代码窗口，有个“通用”的下拉框，选择“worksheet”，在“声明”下拉框选择“Worksheet_SelectionChange”，然后会生成一段代码如下：Private Sub Worksheet_SelectionChange(ByVal Target As Range)End Sub你在第一行和第三行之间复制你的代码，但是你的代码的第6行到倒数第二行，那么就得到了这个：Private Sub Worksheet_SelectionChange(ByVal Target As Range) Rows("1:19").Select Selection.Copy Range("A21").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True Rows("1:20").Select Application.CutCopyMode = False Selection.Delete Shift:=xlUp Range("A1").SelectEnd Sub保持该excel，原来的代码无所谓，删不删都没事。然后新建一个text文件，写入：Set oexcel=CreateObject("excel.application")oexcel.Visible=falseSet workbook=oexcel.Workbooks.Open ("c:\1.xlsm") ’这是那个excel文件的绝对路径，最好保持为xlsm格式，带宏的嘛workbook.Worksheets(1).cells(1,1).selectset workbook=nothingoexcel.quitset oexcel=nothing保持该text文件，修改后缀为vbs，双击.注意，该代码只对第一个sheet叶有效果。