vba

问题 I hope someone will be able to help with a problem that has surfaced with a recent Excel update. If I define two range names in an Excel worksheet and then enter =Index(PeriodList,MonthNo) in cell A13 via the UI, I find that Thisworkbook.Names.Count in VBA reports 2 - as expected. However, if I execute Activesheet.Range("A13").Formula = "=Index(PeriodList,MonthNo)" in VBA, Thisworkbook.Names.Count reports 3 and I find that a new name that cannot be deleted is created. The name is _xlfn.SINGLE

问题 I am om Windows 10. I am trying to use Selenium to automate the Edge browser (or any other browser) via Excel VBA. I went to https://www.selenium.dev/downloads/ There I downloaded Selenium Server, Latest stable version 3.141.59 and Python 3.141.0 November 01, 2018 4.0.0a6.post1 May 28, 2020 Download (I am not using Python but I thought I might in the future.) Then I opened Excel VBA and opened Tools but could not find the “Selenium Type Library” option in the drop down. I did more reading and

问题 I am currently making an userform in which I got multiple textboxes. So for now I got a total of 15 textboxes and each of them should only contain numerical values. The code I got now for each TextBox is: Private Sub TextBox1_Change() If TypeName(Me.ActiveControl) = "TextBox" Then With Me.ActiveControl If Not IsNumeric(.Value) And .Value <> vbNullString Then MsgBox "Sorry, only numbers allowed" .Value = vbNullString End If End With End If End Sub Private Sub TextBox2_Change() If TypeName(Me

问题 I am currently making an userform in which I got multiple textboxes. So for now I got a total of 15 textboxes and each of them should only contain numerical values. The code I got now for each TextBox is: Private Sub TextBox1_Change() If TypeName(Me.ActiveControl) = "TextBox" Then With Me.ActiveControl If Not IsNumeric(.Value) And .Value <> vbNullString Then MsgBox "Sorry, only numbers allowed" .Value = vbNullString End If End With End If End Sub Private Sub TextBox2_Change() If TypeName(Me

问题 I am currently making an userform in which I got multiple textboxes. So for now I got a total of 15 textboxes and each of them should only contain numerical values. The code I got now for each TextBox is: Private Sub TextBox1_Change() If TypeName(Me.ActiveControl) = "TextBox" Then With Me.ActiveControl If Not IsNumeric(.Value) And .Value <> vbNullString Then MsgBox "Sorry, only numbers allowed" .Value = vbNullString End If End With End If End Sub Private Sub TextBox2_Change() If TypeName(Me

问题 I am currently making an userform in which I got multiple textboxes. So for now I got a total of 15 textboxes and each of them should only contain numerical values. The code I got now for each TextBox is: Private Sub TextBox1_Change() If TypeName(Me.ActiveControl) = "TextBox" Then With Me.ActiveControl If Not IsNumeric(.Value) And .Value <> vbNullString Then MsgBox "Sorry, only numbers allowed" .Value = vbNullString End If End With End If End Sub Private Sub TextBox2_Change() If TypeName(Me

问题 I am currently making an userform in which I got multiple textboxes. So for now I got a total of 15 textboxes and each of them should only contain numerical values. The code I got now for each TextBox is: Private Sub TextBox1_Change() If TypeName(Me.ActiveControl) = "TextBox" Then With Me.ActiveControl If Not IsNumeric(.Value) And .Value <> vbNullString Then MsgBox "Sorry, only numbers allowed" .Value = vbNullString End If End With End If End Sub Private Sub TextBox2_Change() If TypeName(Me

问题 I am trying to manipulate a set of data by moving certain data sets from sheet1 to sheet2 . I have a header consisting of 16 elements on sheets2 , they are same headers all the time. I collect data and write them in sheet1 . They are organized in two columns: Column A: consists of the headers(Horizontal, in rows- 57 elements), Column B: consists of the values for these headers. Now, I need to pick a header from sheet2 and match it to a header in sheet1 , if a match is found, then copy the

问题 I am trying to use VBA to read some text from a pdf. I read that I need to reference the library, Adobe Acrobat 10.0 Type Library. So I downloaded the Acrobat DC SDK for windows from download page. However I have looked through the files but I can't find the Adobe Acrobat 10.0 dll. Where can I find this dll? 回答1: You can download it here: The Acrobat X SDK Once you have unzip file, you will find a bunch of folders. You want to drill down to this folder: \Acrobat 10 SDK\Version 1

问题 I am trying to parse xml document that i am getting from a website. from some reason i cant figure out i cant parse the value inside the 'RATE' node. the xml string seems O.K. but in the end of the code (commented) i get Object variable or With block variable not set error. i will be grateful for any help. XML STRING: <?xml version="1.0" encoding="utf-8" standalone="yes"?> <CURRENCIES> <LAST_UPDATE>2016-01-25</LAST_UPDATE> <CURRENCY> <NAME>Dollar</NAME> <UNIT>1</UNIT> <CURRENCYCODE>USD<