我想要一段代码,它允许我打开文件夹中的3个文档-每次打开文档时,我希望有一个显示文件名称的消息框。我想通过一个For Each Next结构来完成这个循环。
我知道application.documents.open filename:=“链接到文档”是我需要使用的代码,但我在将它们组合在一起时遇到了麻烦。
Option Explicit
Sub openthrice()
Application.Documents.Open FileName:="C:\Users\John\Desktop\New folder\Doc1.docx"
End Sub
我已经有一个现有的vbs脚本从一个位置获取一个文件(标题为"Running_12345.xlsx"),并将其放在标题为“文件夹”的文件夹中。这是一个每小时运行一次的文件,它的名称很长,具体取决于它的运行时间。
现在,我只想将文件重命名为"Running.xlsx“,以删除不断变化的文件名。最初,此代码可以工作,但对于随后出现的任何情况,它都会失败,因为"Running.xlsx“文件已经重命名了一次,现在已经存在。如何将覆盖逻辑添加到此代码:
dim fso
Set fso = CreateObject("Scripting.FileSystemObje
我正在尝试检查我可以使用的所有权限,以便人们可以选择任何文件,并且在程序稍后失败之前,他们可以得到一条错误消息,它直接响应为什么他们不能保存到那个位置。现在我已经讨论过的两种工作方法是“没有选定的文件夹”和“这个文件不存在”。说它是只读的不起作用,如果有人有任何有用的提示,这将是非常感谢或任何想法,我可以做更多的检查文件。我正在使用计算机上的程序文件文件来测试它。
Sub CreateFile()
Dim BaseDirectory As String
Dim FS As FileSystemObject
Set FS = New FileSystemObject
我有一个ActiveX组件(它不是我写的,也没有控制权)。它有几个我想使用的方法,这些方法返回数组。每次我尝试做这类事情时:
var arrayValue = axObj.methodWhichReturnsArray();
arrayValue对象未定义。组件提供商告诉我,我不应该遇到我所描述的任何问题。我确实执行了一个null检查,它通过了(这意味着axObj不是null)。
然而,组件提供者在他的示例中使用的是JScript,而不是JavaScript,类似于
var arrayVar = axComponent.getListAsArray();
var theArray = (new
FileReader允许在Chrome中读取本地文件。
function readMultipleFiles(evt) {
var files = evt.target.files;
if (files) {
for (var i = 0, f; f = files[i]; i++) {
var r = new FileReader();
r.onload = (function (f) {
return function (e) {
var
我运行这个vba,它遍历文件夹,并将数据在一个大表中编译在一起。我的问题是,我收到了名为thumbs.db的隐藏文件的错误,我需要添加一些内容,这样它就可以验证它只在使用xlsx扩展名的文件。下面是我正在使用的代码。
Sub DoFolder(Folder)
Dim SubFolder As Folder
Dim i As Integer
Dim CopyR As Range
For Each SubFolder In Folder.SubFolders
DoFolder SubFolder
Next
If Folder.Su
以前我使用Excel和lotus notes来做这件事,公司正在过渡到Outlook 2016作为它的标准电子邮件客户端。
我们从多个分支机构的冰箱单元收到每日报告到邮箱。每个分支都是一个单独的电子邮件,但其中一些附件的名称是相同的。
我使用了一个从LN复制附件的脚本,它有一个私有函数,在复制附件的过程中,如果它们具有相同的名称,它将重命名它们。
我在stack overflow上找到了一个脚本,我对它进行了修改,以便将Outlook中的附件保存到网络文件夹中。这很好用。
这是脚本
Public Sub SaveAttachments()
Dim objOL As Outlook.Applic
我有一个批处理文件,通过重命名和重新定位来准备word文件。这样我就可以使用我在这个网站上找到的javascript代码为这个文件制作pdf了。我这样称呼它;
for %%g in ("test\*.doc") do (cscript.exe //nologo "SAVEASPDF.js" "%%~fg")
此JavaScript代码在另一个文件中作为saveaspdf.js来生成PDF。我是否可以在批处理文件(例如:FUNCTION)中嵌入一个JS代码,以将所有代码保存在一个文件中?
这是我试图嵌入的JS,我在这个网站上找到了它。
var f
我使用以下宏将xls文件转换为xlsx。它的问题在于上面写着SaveAs的台词。这将创建第二个文件,一个具有原始xls扩展名,另一个具有xlsx扩展名。如果我简单地说“保存”,我就会得到一个错误。我如何删除xls文件或让宏执行Save而不是SaveAs?我们需要转换文件的原因是,当我们用电子邮件发送文件时,它的大小会更小。
Dim s As String
s = ActiveWorkbook.FullName
s = Replace(s, "xls", "xlsx")
ActiveWorkbook.SaveAs Filename:=s, _
File
我已经写了一个代码,可以将电子邮件保存为Folder1格式,并下载Folder2格式的附件。现在我的问题是,如果一个附件具有相同的名称,它会覆盖它。
我试图添加这段代码,以便它自动在附件名称前面添加一个数字,但它不起作用。
Dim x As Integer
x = 0
If strFile <> strFile Then
objAttachments.Item(i).SaveAsFile strFile
objAttachments.Item(i) = Replace(objAttachments.Item(i), " ", "_")
如何修改此VBScript以仅返回最新文件的名称和上次修改日期?目前,它返回在过去24小时内修改的所有内容。我只想查找最新的文件。这是我从StackOverflow借来的,还不是VBScript向导。
option explicit
dim fileSystem, folder, file
dim path
path = "C:\test"
Set fileSystem = CreateObject("Scripting.FileSystemObject")
Set folder = fileSystem.GetFolder(path)
for
我的代码有问题,因为它只在特定的文件夹中工作,而不是在特定文件夹内的所有子文件夹中工作。
有没有人能帮我让代码在这个特定文件夹中的所有子文件夹中都能运行?:)
以下是我的代码:
Sub Execute1()
Dim monthstr As String
Dim year As String
Dim monthtext As String
Dim prevmonth As String
Dim prevmonthtext As String
year = Range("D8").Text
monthstr = Trim(R
我需要获得一些关于一些文件的信息,所以我试图构建一个返回如下3条信息的函数:
sub main()
File = getFile(path) 'future code to list all file information on range
end sub
Function getFile(ByVal path as String)
Dim result() as String
Dim Arquivo as File
Set Folder = FSO.getFolder(Path)
For Each File in Folder.Files
result(
第一篇文章是关于Stackoverflow的,如果做错了什么,让我知道。
我正在处理一个VBA脚本,它返回一个文件夹中所有文件的列表,并且它是子文件夹。(以字符串的形式)
但是,它只返回主文件夹和第一个子文件夹的文件。这真的很奇怪,因为我可以清楚地看到它在所有文件夹中循环,但不知怎么的,它没有返回其他文件夹的“getfiles”变量。
Sub test()
MsgBox getfiles("L:\", True)
End Sub
功能:
Function getfiles(startFolder As String, doSubfolders As Boolean) A
我使用以下VBscript.i通过将变量(Strlist)写入文本文件来显示变量(Strlist)中的文本文件"list.txt“。
Const Value = &H23&
Const PATH = "\Cape\ibs"
Dim fso ' File System Object
Dim spFile ' Text File object to write
Dim objApplication ' Application object
Dim objFolder
这是我将文件上传到folder...but的代码,我需要将文件上传到可能还不存在的文件夹。如何在上传文件之前创建文件夹,或者在asp中是否有一个参数可以在文件不存在的情况下在复制文件之前创建文件夹?..我需要根据用户输入创建文件夹...
<%
Class FileUploader
Public Files
Private mcolFormElem
Private Sub Class_Initialize()
Set Files = Server.CreateObject("Scripting.Dictionary")
我要运行包含许多函数的vba代码,我想添加一个名为"WriteLog“的函数,它将创建一个名为Log.txt的文本文件,并将字符串" text”(作为参数传递)写入该文件。
我希望从其他几个函数中启动这个函数来监视它们的执行。我的问题是,我的实际代码覆盖了文本文件,而不是在调用函数时向其中添加新行。
这里是我的实际代码:
Function WriteLog(text)
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim oFile As Ob
我正在为我工作的地方创建一个新的数据库。它正在为工作创建报价。当我单击保存按钮时,它会保存引用并打开一个新文件夹,该文件夹的名称来自表单上的三个字段。我希望它将文件从目录中的另一个文件夹导入或复制到新创建的文件夹。
我尝试使用复制文件夹功能,它确实将文件复制到保存所有引号的主文件夹,而不是新创建的文件夹。
On Error GoTo btnOK_Click_Error
Const strParent = "C:\Users\r.jones\Desktop\Quotes\ "
Dim Strquotenumber As String
Dim St
我正在尝试创建一个VBScript,以便在更换PC时备份Windows7配置文件。
目前我有:
Option Explicit
Const SHARENAME = "c:\NHSITTemp"
Dim fldr,subfldr
Dim sUser
Dim shl, fso
Set shl = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FilesystemObject")
'this gets 'Documents and Settings
我有一个脚本,它为根目录c:\test中的所有文件夹创建一个名为'pst‘的子文件夹。我需要在这个脚本中添加什么代码才能隐藏'pst‘文件夹?
folder_path = "c:\test"
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(folder_path)
For each f in folder.SubFolders
fso.CreateFolder(f & "\PST")
next
任何帮助都是非常感
我不知道如何在带有对象的UNC path中获取文件夹的名称。例如:从"\\Server\FolderA“开始,我希望能够得到"FolderA”。我希望使用的方法是"GetBaseName“,但当"IsRootFolder”属性为True时,它似乎不起作用。
以下程序:
Public Sub GetUNCFolderName()
Const stPathA As String = "\\Server\FolderA"
Const stPathB As String = "\\Server\FolderA\FolderB