EDIT: Một vài tháng sau, tôi đã thử lại lần nữa bằng cú pháp tương tự mà tôi đã thử lần đầu tiên (được đăng bên dưới). Vì lý do nào đó, nó đã hoạt động! Có thể một cái gì đó khác với cú pháp của tôi đã gây ra sự thiếu hiệu quả ... END EDITVBA Tương tác với các nút radio trên trang web
Tôi đã tìm kiếm diễn đàn trong một vài giờ và tìm cách giải quyết vấn đề này, nhưng không có thứ gì tôi đã thử làm việc .
Tôi đang sử dụng VBA để tự động hóa quá trình tạo bản khảo sát trên SurveyMonkey. Cho đến nay tôi đã có thể:
- Đăng nhập vào tài khoản của tôi,
- Bấm vài siêu liên kết để tạo ra một nhà sưu tập phản ứng mới,
- Tên các nhà sưu tập,
- Đến các thiết lập thu,
- Và, chọn ba trong số bốn nút radio để thay đổi cài đặt thu thập.
Vấn đề không phải là tôi không thể chọn nút radio; mã của tôi chọn ba nút đầu tiên tốt. Câu đố của tôi là nút thứ tư không thay đổi! Tôi sử dụng quá trình tương tự cho mỗi nút, vì vậy tôi không thể tìm ra lý do tại sao nút cuối cùng sẽ không chọn.
Dưới đây là phần mã của tôi:
objIE.Document.getElementById("rdlResponseType_1").Click 'Allow multiple responses = Yes
objIE.Document.getElementById("rdlResponseEdit_1").Click 'Allow Responses to be Edited = Yes
objIE.Document.getElementById("rdlThankyou_1").Click 'Display a "Thank You" page? = Yes
objIE.Document.getElementById("rdlCompleteOpt_1").Click 'Survey Completion = Close Window
Đây là HTML cho các nút radio:
<table border="0" cellpadding="0" cellspacing="0" style="width: 100%;">
<tr id="CompleteOptDesc">
<td style=""> </td>
<td>After the respondent leaves the survey:</td>
</tr>
<tr id="CompleteOptItems">
<td style=""> </td>
<td align="left" nowrap="nowrap" valign="top">
<table id="rdlCompleteOpt" class="Clean radioList" OnClick="radioToggle('rdlCompleteOpt', '0', 'panLink');" name="rdlCompleteOpt" border="0" style="white-space: nowrap">
<tr>
<td><span style="white-space: nowrap"><input id="rdlCompleteOpt_0" type="radio" name="rdlCompleteOpt" value="0" checked="checked" /><label for="rdlCompleteOpt_0"><b>Redirect</b> to your own webpage.</label></span></td>
</tr><tr>
<td><input id="rdlCompleteOpt_1" type="radio" name="rdlCompleteOpt" value="2" /><label for="rdlCompleteOpt_1"><b>Close Window</b></label></td>
</tr>
</table>
Đây là mã cho phần chuyển đổi của đài phát thanh:
<td width="65%" valign="top">
<div id="panLink" style="DISPLAY:inline">
<div class="URLinfo">
<b>Enter a URL</b> to jump to upon leaving the survey:<br />
<div title="REQUIRED: Enter URL (255 character max)" style="padding:4px 0 2px 0;">
<input name="txtWebLink" type="text" value="http://www.surveymonkey.com/" maxlength="255" size="40" id="txtWebLink" class="RQR opaque" />
</div>
<span class="tip">Example: <u>http://www.mysite.com/home.html</u></span>
</div>
</div>
</td>
Mọi đề xuất sẽ rất được đánh giá cao!
thay vì gọi phương thức nhấp, bạn đã thử đặt thuộc tính đã chọn thành true? –
Tôi đã thử dòng này: 'objIE.Document.all.item (" rdlCompleteOpt ") (1) .Kiểm tra = True' nhưng nó không hoạt động. – ARich
'objIE.document.getElementById (" rdlCompleteOpt_1 ") Kiểm tra = True' –