Question

我正在使用经典的VBA，但我在创建外部文件时遇到了问题。无论是使用表我想创建一个标准的txt文件。我已经找到了一种方法来检查文件是否存在并将其删除。

If Dir("%USERPROFILE%\Documents\iMacros\Macros\CriarGDC.iim") <> "" Then
    Kill "%USERPROFILE%\Documents\iMacros\Macros\CriarGDC.iim"
    Else
    End If

也是一种写我需要的所有行的方法

Open "%USERPROFILE%\Documents\iMacros\Macros\CriarGDC.iim" For Append As #1
    Print #1, "1100258698,4"
Close #1

并且还找到了使用imacros文件启动firefox的方法

问题是：

我无法创建文件。我尝试使用

Shell ("cmd.exe")
SendKeys ("dir /s/b %USERPROFILE%\Documents\iMacros\Macros\*.itwontfindanything > %USERPROFILE%\Documents\iMacros\Macros\CriarGDC.iim")

但我有一些权限问题 - Windows 7不允许我这样做。很多人告诉我那个命令

Sub WriteFile(ByVal FileName As String, ByVal Contexto As String)
  Dim fnum%
  fnum = FreeFile()
  Open FileName For Output As fnum
  Print #fnum, Contexto
Close #fnum
End Sub

应该工作，但它没有！呃... 帮助

Answer 1

在为 WriteFile 程序提供包含环境变量的 FileName （例如“％USERPROFILE％\ Documents \ foo.txt”）时，VBA会给我错误＃ 76，'路径未找到“。

使用 Environ（）功能解析环境变量，然后再将其提交给 WriteFile 。

WriteFile Environ("USERPROFILE") & "\Documents\iMacros\Macros\CriarGDC.iim", "some text"

使用ACCESS 97写入外部文件

1 个答案: