求助：如何用Excel VBA+Selenium判断网页日历控件日期是否可用

Hey there, let's work through this date picker status detection issue you're hitting with VBA, Selenium Basic, and your Chrome 75 setup. I’ve dealt with plenty of finicky calendar controls before, so let’s break this down to get you accurate status checks.

First off, the root of your issue is likely that your initial XPath wasn't targeting the specific HTML attributes or classes that distinguish disabled dates from enabled ones. Let's tailor solutions to the two HTML scenarios you mentioned, then wrap up with the activation logic.

Step 1: Target the Right HTML Features for Each Scenario #

Calendar controls typically mark disabled dates in one of two common ways—let's cover both with VBA code tailored to your setup:

Scenario 1: Disabled Dates Use a Specific CSS Class #

Lots of calendars (like jQuery UI Datepicker) add a disable-specific class to blocked dates. For example:

• Disabled date HTML:

  <td class="ui-datepicker-unselectable ui-state-disabled"><span class="ui-state-default">15</span></td>
  

• Enabled date HTML:

  <td class="ui-datepicker-week-end"><a class="ui-state-default" href="#">16</a></td>
  

To detect this, check if the date's parent <td> has the disable class, or if the date uses a non-clickable <span> instead of an <a> tag:

Dim targetDateElem As WebElement
Dim isDateDisabled As Boolean
Dim driver As New ChromeDriver

' Initialize driver and navigate to your page first
' ...

' Locate the target date element (replace 15 with your target day)
Set targetDateElem = driver.FindElementByXPath("//td[span[text()='15']]")

' Check for the disable class in the element's class attribute
If InStr(targetDateElem.Attribute("class"), "ui-datepicker-unselectable") > 0 Then
    isDateDisabled = True
Else
    isDateDisabled = False
End If

' Alternative check: Enabled dates usually have an <a> tag, disabled use <span>
If targetDateElem.FindElementsByXPath(".//a").Count = 0 Then
    isDateDisabled = True
End If

Scenario 2: Disabled Dates Have the disabled Attribute #

Some controls directly add a disabled boolean attribute to blocked date elements:

• Disabled date HTML:

  <button disabled class="date-btn">17</button>
  

• Enabled date HTML:

  <button class="date-btn">18</button>
  

Here, check if the disabled attribute exists (Selenium Basic returns an empty string if the attribute isn't present):

Set targetDateElem = driver.FindElementByXPath("//button[text()='17']")

' Check if disabled attribute is present
If targetDateElem.Attribute("disabled") <> "" Then
    isDateDisabled = True
Else
    isDateDisabled = False
End If

Step 2: Fix Your XPath Logic #

Your original XPath probably returned True every time because it only looked for the date text, not its disabled state. To make the check directly in XPath (and avoid errors if the element doesn't exist), use FindElementsByXPath instead of FindElementByXPath—it returns a collection, so you can check the count:

' Scenario 1: Check if the disabled 15th exists
If driver.FindElementsByXPath("//td[contains(@class, 'ui-datepicker-unselectable') and span[text()='15']]").Count > 0 Then
    isDateDisabled = True
End If

' Scenario 2: Check if the disabled 17th button exists
If driver.FindElementsByXPath("//button[@disabled and text()='17']").Count > 0 Then
    isDateDisabled = True
End If

Step 3: Activate the Date via Checkbox #

Once you confirm the date is disabled, toggle the required checkbox and wait for the calendar to update (don't skip the wait—dynamic controls need time to refresh):

If isDateDisabled Then
    ' Locate and click your checkbox (replace with your checkbox's ID/XPath)
    driver.FindElementById("activate-date-checkbox").Click
    
    ' Use explicit wait instead of fixed sleep for reliability (wait up to 10s)
    Dim wait As New WebDriverWait
    Set wait = New WebDriverWait(driver, 10)
    
    ' Wait for the target date to become clickable (adjust XPath to your enabled date element)
    On Error Resume Next
    wait.Until (Condition:=Function(d) d.FindElementByXPath("//td[span[text()='15']]/a").IsDisplayed)
    On Error GoTo 0
    
    ' Re-check the date status after activation
    ' ... repeat your detection logic here
End If

Quick Pro Tips #

• Version Match: Great job keeping Chrome v75 and ChromeDriver v75 aligned—this avoids most compatibility headaches.
• Dynamic Controls: If the calendar switches months, re-locate the date element after each month change (elements get re-rendered).
• Explicit Waits: Always prefer explicit waits over fixed Wait calls—they make your code more stable when pages load slowly.

内容的提问来源于stack exchange，提问作者DWP