excel-vba

问题 We can check if a sheet is protected using ProtectContents property. But how check if it is protected with a password? if ws.ProtectContents then ''do something end if 回答1: I don't believe there is a direct way of doing this by way of a property. Alternatively, though, you could attempt to unprotect the worksheet with a blank password and catch the error should it fail: Function isSheetProtectedWithPassword(ws As Worksheet) As Boolean If ws.ProtectContents Then On Error GoTo errorLabel ws

问题 I have two collections, the second one is inside the first one. But when I try to access the element of the second collection I get a Type mismatch error. Sub testColls() Dim coll1 As Collection Dim coll2 As Collection Set coll1 = New Collection Set coll2 = New Collection coll2.Add ("dog") coll1.Add ("cat") coll1.Add coll2 Dim temp As String temp = coll1(1)(1) MsgBox (temp) End Sub Why is this error? coll1(1) gets the second collection, coll (1)(1)` should give first element of the second

问题 I have two collections, the second one is inside the first one. But when I try to access the element of the second collection I get a Type mismatch error. Sub testColls() Dim coll1 As Collection Dim coll2 As Collection Set coll1 = New Collection Set coll2 = New Collection coll2.Add ("dog") coll1.Add ("cat") coll1.Add coll2 Dim temp As String temp = coll1(1)(1) MsgBox (temp) End Sub Why is this error? coll1(1) gets the second collection, coll (1)(1)` should give first element of the second

问题 I believe my problem is rather simple: I have a workbook and I'm using it to get some data from another software (SAP). When I export the data from the software, it automatically opens a .xlsx file, then what I'd need to do is copy some of the data from this file, paste on my original workbook, and then close the file. The section of my code which is giving me an error is this one: fileName = "temp1.xlsx" Set wbBasis = Workbooks(fileName) This happens because the "temp1.xlsx" file that was

问题 I am using Excel and am looking to get the name of the table based on a cell address (ex A3), this cell will not move. How would I go about stating this in Excel's VBA? My plan is to have code that will copy data validations from a row of one table on my Maintenance tab to a single table on each tab of my workbook (minus my "TOC" and "data" tabs). Each tab is a copy of a "TEMPLATE" worksheet (minus the "TOC", "data", & the "TEMPLATE (Maint.)" worksheets). Worksheets "data", "TEMPLATE", and

问题 When running text-to-columns in vba, it puls my dates as american dates, instead of uk dates, as long as it is possible for it to do so. So for example, 31-Aug stays as 31-Aug, but 01-Sep changes to 09-Jan! Is there any way to specify that all dates are in UK format BEFORE vba runs? As even just reformatting to US dates to show as US dates won't work because we have code that runs if date < Today , which of course will cause issues with the changing date format. The data feeds in the format

问题 I have a VBA code that works well, apart from the fact that i don't know how to exclude one sheet from saving to the PDF. I would like the exclude the sheet named 'Control' from being included in the export and save to PDF. Any ideas how or where i should add this? Thanks Sub CreatePDF() Dim saveAsName As String Dim WhereTo As String Dim sFileName As String Dim ws As Worksheet Dim myrange ' Retrieve information from Control sheet Sheets("Control").Activate Range("C4").Activate periodName =

问题 I have a VBA code that works well, apart from the fact that i don't know how to exclude one sheet from saving to the PDF. I would like the exclude the sheet named 'Control' from being included in the export and save to PDF. Any ideas how or where i should add this? Thanks Sub CreatePDF() Dim saveAsName As String Dim WhereTo As String Dim sFileName As String Dim ws As Worksheet Dim myrange ' Retrieve information from Control sheet Sheets("Control").Activate Range("C4").Activate periodName =

问题 I sometimes has error on subroutine.The subroutine is called by many procedure. So, I try to find caller procedure for step over. By the way, user-defined function can know the caller. It is simply. MsgBox Application.Caller We can see dialog and caller cell address. I want to know caller procedure of subroutine. 回答1: You can use Call Stack Dialog Box For example in the below image proc3 was called by proc2 which is displayed in call stack dialog box. 来源： https://stackoverflow.com/questions

问题 I see codes with the following pattern ubiquitously on the web and in my own projects: Sub Func() Application.EnableEvents = False ' some code Application.EnableEvents = True End Sub Since the lifetime of VBA objects seems to be deterministic, I thought I could replace this pattern with the so-called sentry objects as we do in C++ , so that the problem of unusual exit (err.raise) could be solved automatically. But how? I have little idea because I'm new to VBA and not even fully aware of when