Tag: windows运行时

写入打开的csv文件但不打开文本文件时，权限被拒绝: 我有一个脚本，写一个列表到一个CSV文件，但我注意到，当我有文件在Excel中打开，并运行该过程中，我得到一个[Errno 13]权限被拒绝，但是当它被closures或打开记事本++ I可以写入到csv没有问题。有没有人知道一种方法来忽略excel似乎放在文件上的锁，甚至closures打开的文件。下面是我用来写入文件的代码（使用csv模块） try: with open(file_path_name, 'ab') as wFile: writer = csv.writer(wFile, delimiter=',', lineterminator="\n") for csv_row in data: writer.writerow(csv_row) except IOError as e: print e 我在Windows 7上使用python 2.7

如何使用Powershell更改Word和Powerpoint 2013的自动保存间隔？: 我使用PowerShell脚本并将自动恢复保存间隔更改为2或3分钟。我得到它在Excel 2013上工作，但似乎无法使其在Word或PowerPoint上工作。这是Excel 2013的： $a = New-Object -comobject Excel.Application $a.AutoRecover.Time = 2 这是Excel的，它的工作原理。这是我的Word和PowerPoint的： $a = New-Object -comobject Excel.Application $b = New-Object -comobject Word.Application $c = New-Object -comobject PowerPoint.Application ## Enable Autorecover if it happens to be disabled $a.AutoRecover.Enabled = True $b.AutoRecover.Enabled = True $c.AutoRecover.Enabled = True ## Change the timer $a.AutoRecover.Time = 2 […]

在服务下运行时，Excel无法看到Windows映射驱动器: 我有一个作为服务运行的应用程序。此应用程序允许用户连接并启动用户的Windows帐户下的subprocess。换句话说，mydomain \ john通过TCP连接到服务，并说“启动”，它启动在mydomain \ john帐户下运行的窗口上的进程。接下来，这个subprocess可以映射驱动器T：使用net use命令。然后该过程可以运行映射的驱动器T：上的VB脚本。到目前为止没有麻烦。当VB脚本尝试使用“createObject”运行Excel时，会出现问题。使用DCOMCNFG设置DCOM启动设置并在systemprofile文件夹中创build缺less的“桌面”文件夹后，仍然无法使其工作。奇怪的是，如果运行我的VB脚本，并提供Excel的UNCpath\文件服务器\共享1而不是T：\脚本的作品。有谁知道为什么Excel将无法访问T：\映射，但没有与UNCpath的问题？

更改特定拆分视图的视图: 我期待有我的Excel表格（垂直），确保一组控制留在屏幕的左侧，方便访问。目前我使用此代码来select并移动到一个单元格，根据我在A列中的标题列表。 Option Explicit Dim trimProcess() As String Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim i As Integer If Not Intersect(ActiveCell, Range("A6:A1000")) Is Nothing Then If ActiveCell.Value <> "" Then For i = 0 To UBound(trimProcess) If ActiveCell.Value = trimProcess(i) Then Cells(4, 4 * (i + 1)).Select Cells(4, 4 * (i + 1)).Activate End If […]

我想使用任务调度程序使用GPO运行一个exe文件: 我们在networking上有windows server 2012，我有一个exe文件，它是从用户计算机中获取已安装的软件信息，并创build一个excel报告。我决定每天下午3点使用组策略任务调度程序运行exe文件。它在下午3点在客户端机器上执行但是，excel报告没有生成，它给出了一个错误 “C：\ windows \ system32 \ report.xls访问被拒绝” 似乎报道无法在path中生成任何可能性在不同的文件夹中创build报告没有任何错误问候pipe理员

从Excel中删除Explorer中的多个文件: 我试图select一个特定的文件夹中包含从Excel列表中大约22K的17K文件。该列表具有所有文件的名称和扩展名，仅此而已。我试过这个代码，但没有运气。 Sub DeletePics() Dim picRNG As Range, pic As Range, picPATH As String picPATH = "path" Set picRNG = Sheets("Sheet1").Range("A1:A17108").SpecialCells(xlConstants) On Error Resume Next For Each pic In picRNG If pic.Offset(, 1) = "Delete" Then If Len(Dir(picPATH & pic.Value)) > 0 Then Kill picPATH & pic.Value pic.Offset(, 2).Value = "Deleted" Else pic.Offset(, 2).Value […]

几次播放Windows媒体文件vba: 我在Excel VBA中创build了一个八度钢琴。使用键作为图像，每个附带的子弹都会弹奏一个音符。我已经添加了使用这个代码logging每个“音符”的function，optionbutton1是“您现在正在录音”的select。 Private Sub A_Click() WindowsMediaPlayer1.URL = "F:\New Folder\puzzles\Anote.wav" If OptionButton1.Value = True Then Dim x As String x = "A" Range("A" & Rows.Count).End(xlUp).Offset(1).Select ActiveCell.Value = x End If End Sub 我的问题在哪里播放录音。我需要遍历所有的单元格。我正在使用For Each Loop。 if语句当然会扩展到包含整个八度。 Dim wks As Worksheet Set wks = ActiveSheet Dim LastRow As Long LastRow = wks.Cells(wks.Rows.Count, "A").End(xlUp).Row […]

VBS脚本在按计划任务运行时与双击运行不同: 我正在尝试运行下面的代码。当我在Windows中双击.vbs脚本时，它确实需要做什么。保存并closures所有打开的excel实例，然后打开2张指定的表格，在表格中运行macros并closures它们。当计算机进入Wi-Fi范围时，我使用Excel中的Auto_Open同步这些表单。当我尝试通过.bat或直接与Windows任务计划程序运行命令。第一部分需要保存和closures所有打开的Excel表格似乎不起作用。一切都像一个魅力。有什么基本的任务调度我缺less？代码如下： On Error Resume Next While Err.Number = 0 Set objOffice = GetObject(,"Excel.Application") set objShell = CreateObject("Wscript.Shell") objOffice.DisplayAlerts = False For Each objWindow In objOffice.Windows objWindow.Activate Set WBook = objOffice.ActiveWorkbook WBook.Saved = True WBook.Save WBook.Close Next objOffice.DisplayAlerts = True objOffice.Quit Set objOffice = Nothing WScript.Sleep 2000 Wend […]

EViews无法导入新复制的Excel工作簿: 我有一个Excel文件，我可以导入EViews。当我复制这个文件时（无论是手动使用文件资源pipe理器还是使用Matlab中的shell命令），我都无法直接将该文件读入EViews。我得到以下错误： File 'd:\Temp\15\evxlx\[content_types].xml' does not match expected format in "WFOPEN(WF=…,PAGE=…) FILENAME RANGE=…". 但是，如果我复制它后打开Excel文件，并保存它，我没有得到任何错误和数据导入按预期。 Excel文件在复制时发生了什么变化？当它被保存时有什么变化？

如何检查一个工作簿中的原始数据与另一个工作簿中的主列表: 我是VBA-Excel的新手，需要一些帮助。我有一个工作簿，其中包含可接受的string值的主列表。此工作簿定期更新。我有另一个工作簿，其中包含所有的原始数据。我想让我的macros打开主列表，从主列表中检查我的原始数据的第二列中的每个条目，并删除没有包含在我的主列表中的任何单元格。我需要一些指引，让我在路上。这是我到目前为止： Sub Firstcheck（） Dim wkb As Object Dim wkbname As Object Dim masterlist As Range Dim cell As Range Set wkbname = ActiveWorkbook Set wkb = Workbooks.Open(Filename:="T:\Communications and Media\Media\Media Reporting\media master list.xlsx") wkb.Activate Set masterlist = Range("a1", Range("a1").End(xlDown)) wkbname.Activate Range("a1").Select For i = 1 To 3 If Len(ActiveCell.Offset(1, 0).Value) […]