我尝试在我的代码中添加一个范围,但我没有运气.我希望能够在vba中创建一个脚本,以"另存为"特定工作表或特定范围到pdf.任何帮助将非常感激.
以下是我一直在使用的内容:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"c:\Book1.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
谢谢,
我似乎无法得到关于是否打开只读工作簿的明确反馈.在我的代码中,我在关闭/保存工作簿后将其复制.我希望能够覆盖只读工作簿,如果它被另一个用户打开为只读.我尝试过这样的代码,但没有运气,它只是说"文件没有打开!" 即使我把它打开了.如何检查vba中是否打开了"只读.xlsx"文件？
Sub Test_If_File_Is_Open_2()
Dim wBook As Workbook
On Error Resume Next
Set wBook = Workbooks("C:\Users\" & Environ("username") & "\Documents\Dropbox\Systems\Open Machine Schedule\Open Machine Schedule.xlsx")
If wBook Is Nothing Then 'Not open
MsgBox "File is Not open!"
Else 'It is open
MsgBox "File is Open!" 'Never get this to display when I have the excel file open
End If
End Sub
最开始的提示,使用这个代码位(上图)是因为我想要的宏,如果只读工作簿是由其他用户打开不会导致错误.当我运行下面的宏,并有复制只读工作簿之前打开,我得到一个错误:"VBA运行时错误1004无法访问只读文件"的时候,复制的工作簿关闭时,我没有得到这个错误像它应该的那样覆盖它.以下是提示此问题的代码:
Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim backupfolder As String
backupfolder = "C:\Users\" & …我无法将单个单元格的值拆分为两个不同的字符串,并将这两个字符串放在不同的单元格中.
例如,我想10ft x 20ft在一个单元格中取一个测量值10ft并将其放入另一个单元格中,20ft并将其放入一个完全不同的单元格中.
我想使用分隔符x或其他东西,但我只是不知道如何分割这些分色并在分裂后对它们做些什么.
任何提示将非常感激.我还是VBA宏的新手.
谢谢
出于某种原因,我可以让消息框告诉我用户名是什么,但它在save as path中的工作方式不同.我收到"无法找到路径"错误.
不知道如何解决这个问题.我也看过参考文献,看起来它们是正确的.
如果我更改路径以包括每台计算机的实际用户名,宏可以正常工作.但我需要这个是任何计算机/用户的全局宏.任何帮助将不胜感激.
这是我有的:
Sub SAVEAS_2010()
'
' SAVEAS_2010 Macro
MsgBox Environ("username")
Dim UserName As String
UserName = Environ("username")
ChDir "C:\Users\" & UserName & "\Dropbox\Open Machine Schedule"
ActiveWorkbook.SaveAs FileName:= _
"C:\Users\" & UserName & "\Dropbox\Open Machine Schedule\Open Machine Schedule - Current_2.xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub
出于某种原因，我无法让这个批次在 Windows XP 或 Windows 7 中执行打开部分，等待，然后关闭部分。我只能通过注释掉批处理中的另一个来打开或关闭，但出于某种原因，我是如何拥有它的写了它只会打开。如何打开程序等待固定时间，然后关闭同一个程序？这样做的原因是在计算机启动时强制制造商程序的驱动程序。任何帮助将非常感激。谢谢。
@ECHO off
"C:\Program Files\WinTV\WinTV2K.EXE" -nc
Set _Delay=5
Taskkill /IM "WinTV2K.EXE" /F
Exit