vba 操作ie匯入資料 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » vba 操作ie匯入資料

返回列表下一主題上一主題發帖

[發問] vba 操作ie匯入資料

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

1^# 跳轉到 »

發表於 2013-5-23 20:03 | 顯示全部帖子

你的B20 , C20都是固定位置嗎?
若是
x = IIf(InStr(Join(Application.Transpose([A1:A50].Value), ""), "如果") > 0, [B20], [C20])
若不是固定位置而是相對於 "如果" 儲存格
問題又怪怪的，沒找到 "如果" 儲存格，哪來的C20

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2013-5-24 01:36 | 顯示全部帖子

回復 15# cji3cj6xu6

Sub TEST()
Dim f
With ActiveSheet
Set f = .[A1:A50].Find(What:="如果", LookIn:=xlValues, LookAt:=xlPart)
.[C55] = IIf(f Is Nothing, "找不到", f.Offset(, 1).Value)
End With
End Sub

複製代碼

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

3^#

發表於 2013-5-24 02:09 | 顯示全部帖子

回復 15# cji3cj6xu6
更正一下(因為IIF正反都會先運算會有問題)

Sub TEST()
Dim f
With ActiveSheet
Set f = .[A1:A50].Find(What:="如果", LookIn:=xlValues, LookAt:=xlPart)
If f Is Nothing Then
.[C55] = "找不到"
Else
.[C55] = f.Offset(, 1).Value
End If
End With
End Sub

複製代碼

靜思自在 : 做好事不能少我一人，做壞事不能多我一人。

返回列表下一主題上一主題