Tag: excel vba mac

将地址（分配为单独的variables）用于公式中: 当我尝试运行这个代码时，我总是收到一个运行时错误“13”： FirstAddress = Range("P12").Address SecondAddress = Range("C13").Address MyVar = FirstAddress – SecondAddress 会有人碰巧知道我能做些什么来解决这个问题吗？我知道运行时错误代码意味着我正在做的事情是不允许的，但我想将地址（不是值）保存到一个我可以稍后调用的variables中。提前致谢！

vba mac连接到SQL Server与ActualTech odbc驱动程序: 我一直在处理我的问题，现在我似乎没有find一个准确的工作答案，所以在这里，我是…我是一个新的VBA我不得不承认…… 。我的问题是以下几点：我正在与MS Office 2011的Mac OS X优胜美地工作，我试图将我的Excel工作簿连接到一个SQL数据库。这必须通过vba来完成，以后我想从sql数据库读取数据以及将数据写入数据库。我无法findbuild立到该数据库的连接的方法。我甚至下载了actualtech的odbc驱动程序，并设置我的dsn（不知道如果我做对了，但无法find如何与一个SQL服务器上的主页….）下面的代码是我能find的，但是我仍然在这里得到错误： strSRV = "mysql01.gutknecht-net.com" strDB = "gi_kunden" sqlLogin = "TEST" 'has to be changed sqlPW = "TEST_PW" 'has to be changed strConn = "ODBC;DSN=" & strSRV & ";UID=" & sqlLogin & ";PWD=" & sqlPW & ";Database=gi_kunden" With Sheets("Firma").ListObjects sqlCommand = "Select * From tbl_firma" […]

无法在Mac中保存为VBA中的PDF: 我正试图通过VBA将工作表的范围保存为PDF。以下是我写的代码。 Sheets("PO Format").PageSetup.PrintArea = "$B$6 : $J$42" Sheets("PO Format").Range("B6:J42").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Sheets("User Settings").Range("B15") & "/" & Sheets("PO Format").Range("F7"), Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True 奇怪的是，它在一个系统上工作正常，我能够保存在所提到的path，然后也发出一个邮件，但在另一个系统上testing时，我得到的错误为“打印时出错”。完全无知。谁能帮忙？

如何循环浏览文件夹中的文件Excel Mac 2016: 我试图把几个excel文件合并成一个。为此，我一直在使用和修改我在这里find的一个旧的答案，但是我却在Excel 2016 for Mac上运行时遇到了麻烦（它适用于Mac版Excel 2011，并进行了一些更改）。在Excel 2016（Mac）中，以下代码在循环中运行一次，然后打印选定文件夹中的第一个文件的名称，然后停止。在Excel 2011（Mac）中，它正确地打印所选文件夹中的所有文件的名称。 Sub wat() Dim FilesFolder As String, strFile As String 'mac excel 2011 'FilesFolder = MacScript("(choose folder with prompt ""dis"") as string") 'mac excel 2016 FilesFolder = MacScript("return posix path of (choose folder with prompt ""dat"") as string") If FilesFolder = "" Then Exit Sub strFile […]

附加文件的macros问题: 这个想法是附加一个Excel文件，使用Attachment.Add引用我使用macros获取的列表。 macros读取文件夹中的文件并将其显示在列中。从那一栏我想通过Excel附加这些文件。我一直在下面的线上发生错误。 .Attachments.Add Filelist & "\" & "Attch" 谁能帮忙？ Sub Sendemailusingword() Dim Olapp As Outlook.Application Dim Olemail As Outlook.MailItem Dim olmail As Object Dim olinsp As Outlook.Inspector Dim wddoc As Word.Document Dim count As Integer Dim x As Integer Dim Filelist As String Dim Attch As String x = 1 row_number = 7 […]

复制Excel表格粘贴到特定的PPT幻灯片: 详情：Mac Excel（2016）复制到Mac PPT（2016）最后，我想循环遍历所有表格，并在PPT中将每个表格粘贴到它自己的幻灯片中。但首先我试图从Excel中复制一个表格并粘贴到特定的PPT文件（而不是networking新的演示文稿）。 Sub OpenPPTandCopySelectedTable() Dim PPT As PowerPoint.Application Set PPT = New PowerPoint.Application PPT.Visible = True 'Open the specific Template PPT.Presentations.Open Filename:="/Users/MyNameHere/Downloads/FileName.pptx" 'Make Specific File the Active Presentation Set PPPres = PPT.ActivePresentation 'Copy the Excel Table Range("Table1[#All]").Copy 'Select PowerPoint Slide number 2 PPT.Slides(2).Select 'Paste Special Application.ActiveWindow.View.PasteSpecial DataType:=ppPastePNG End Sub 我究竟做错了什么？任何帮助，将不胜感激。

无法find项目或库，在Mac上使用带有Excel VBA的FileSystemObject进行引用: 在我有的代码中，我引用了Microsoft Scripting Runtime库，以使用FileSystemObject 。当然这不适用于Mac。因此，我的第一个小组是确定代码正在执行的机器正在运行的操作系统，以及当这是Mac时停止执行： Sub BezemResultaat() If Left(Application.OperatingSystem, 3) = "Mac" Then fout = MsgBox("Deze macro werkt alleen op een windows PC vooralsnog.", vbOKOnly, "Fout!") If fout = vbYes Then Exit Sub End If Else Call GetData End If End Sub 在GetData子我参考FSO。我以为这会工作，但在Mac上，由于缺less一个库，这个错误。有没有不同的方法来完成这个？

Mac Excel 2011 VBA评估: 我正将一个Excel的VBA从PC移到Mac，并且一行有一个Evaluatefunction，例如： Public Function test() test = Evaluate("=2+2") End Function 但是，如果我尝试在mac上运行macros，该函数将返回#name。在Mac上是否有相同的function进行评估？

使用GrantAccessToMultipleFiles可以防止在Windows上运行Sub: 我正在写一个Excelmacros来自动填充和保存一些Word文档。它在Office 2016 for Mac上运行良好，但我希望确保与Windows的交叉兼容性。为了减轻由于Mac Office沙箱而给予个人文件权限的用户负担，我使用ramitarora的有用解决scheme实现了GrantAccessToMultipleFiles命令。不幸的是，因为GrantAccessToMultipleFiles是一个特定于Mac的命令，所以当我试图在Windows上运行这个命令时，我遇到了编译错误：“Sub or Function not defined”。有针对这个的解决方法吗？因为这是一个编译错误，我不能用“On Error Resume Next”来运行它。作为参考，相关代码如下： 'Operating System check: if pos=0, user is on OSX Dim pos As Integer pos = InStr(Application.OperatingSystem, "Windows") 'If on OSX ask for file permissions in bulk If pos = 0 Then Dim fileAccessGranted As Boolean Dim […]

是否有Application.GetOpenFilename的Mac / PC变种？: 有没有一个通用的操作系统变种？我正在寻找这个代码在Mac和PC上工作，但这似乎只能在PC上工作。 strFile = Application.GetOpenFilename("Text Files (.csv),.csv", , "Please selec text file…")