我在VBScript初学者.我GOOGLE了它和认识了,我们可以从命令行由下面的命令执行运行VBScript:
例如,我的vbscript名称是Converter.vbs&它出现在文件夹中D:\VBS.
我可以通过以下方式运行:
CScript "D:\VBS\Converter.vbs"
要么
WScript "D:\VBS\Converter.vbs"
现在,我想上面执行VBScript 没有 Cscript或Wscript只需键入VBscript的名称即转换器的名称命令.
我不希望指定VBSCRIPT每次的完整路径.
任何人都可以请指导我该怎么做？
我有1 WorkBook("SOURCE")包含约20张.
我想Workbook("TARGET")使用Excel VBA 仅将1个特定工作表复制到另一个工作表.
请注意,"TARGET"工作簿尚不存在.它应该在运行时创建.
使用的方法 -
1)Activeworkbook.SaveAs<---不起作用.这将复制所有工作表.我只想要特定的表格.
请回复此以及您的宝贵意见.
谢谢 !!
问题 - 我在一次单元格中有大约8202个字符,表示范围("A1").
现在我想使用VBA将单元格(A1)的内容复制到单元格(A2).我在Code下面使用
Sheets("XYZ").Range("A2") = Sheets("XYZ").Range("A1")
执行代码后.它给出了"应用程序定义或对象定义的错误!!"
请帮助/协助您的专家评论.
观察 - 如果我将"A1"单元格的长度减少到8202或更少,那么代码就可以了!
我糊涂了.请帮助.
我创建了一个 Outlook 宏，用于将 Outlook 邮件复制到 Excel 工作表。
当目标工作簿已打开时，宏不会给出预期结果。我想关闭已经打开的工作簿。
我知道如何使用 Excel VBA 执行此操作，但如何使用 Outlook VBA 处理此问题。
我正在使用以下代码来检查 Excel 工作表是否打开。
请注意，我想使用 Outlook VBA 关闭打开的工作簿。
Function IsWorkBookOpen(FileName As String)
Dim ff As Long, ErrNo As Long
On Error Resume Next
ff = FreeFile()
Open FileName For Input Lock Read As #ff
Close ff
ErrNo = Err
On Error GoTo 0
Select Case ErrNo
Case 0: IsWorkBookOpen = False
Case 70: IsWorkBookOpen = True
Case Else: Error ErrNo
End Select
End Function
更新 - …
我在针对Excel SpreadSheet触发SQL查询时遇到问题.我有一个Excel-2007电子表格,有大约1个lac行,有两列.第1列(cid)和第2列(公司).我想从sheet(tab1)中获取所有行,其中company ="spider".我正在使用下面的代码.它给我的结果,但只有前1400行.如果我在1400行之后确实有公司="蜘蛛"它无法通过下面的代码获取它.需要帮助.
Sub main()
On Error GoTo ErrHandler
Set cn = CreateObject("ADODB.Connection")
With cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & ThisWorkbook.FullName & "; Extended Properties=Excel 8.0"
.Open
End With
Set ObjRes = cn.Execute("Select cid,company from [tab1$] where [company]= 'spider'")
result.Range("A:B").Clear
result.Range("A1").CopyFromRecordset ObjRes
cn.Close
Set cn = Nothing
Set ObjRes = Nothing
Exit Sub
ErrHandler:
cn.Close
MsgBox "dataerror"
End Sub
请提供您宝贵的意见/解决方案来解决这个问题.如果您需要任何其他详细信息,请告诉我.
谢谢.