应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » VB » 求急救：VBA中range对单元格不能依次读取数据，提示：“作用于对象Globle时失败”
131/2返回列表12下一页
查看: 2754  |  回复: 12
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

bongb

银虫 (小有名气)

[求助] 求急救：VBA中range对单元格不能依次读取数据，提示：“作用于对象Globle时失败”

Excel中用VBA写了一段，
程序代码如下（省略了一部分）
startcol = 1
endcol = startcol + XMS - 1
If startcol \ 26 > 0 Then
x1 = Chr(Asc("A" + startcol \ 26 - 1)
Else: x1 = ""
End If
x2 = Chr(Asc("A" + startcolMod26 - 1)
If endcol \ 26 > 0 Then
x3 = Chr(Asc("A" + endcol \ 26 - 1)
Else: x3 = ""
End If
x4  = Chr(Asc("A" + endcolMod26 - 1)
Set r = Range(x1 & x2 & i & ":" & x3 & x4 & i)

在执行时出现提示：“作用于对象Globle时失败”

在网上搜索，有个类似的，但也没能解决。
请教各位达人！
救急！谢谢！
回复此楼

» 本帖已获得的红花（最新10朵）

bongb

» 猜你喜欢
1楼 2013-06-19 18:31:09
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
回帖支持 ( 显示支持度最高的前 50 名 )

michaelwlin

木虫 (正式写手)

【答案】应助回帖

引用回帖:
5楼: Originally posted by bongb at 2013-06-20 22:28:22
感谢michaelwlin的解答，
之前有申明的，
public i as integer
public const XMS as integer = 4

具体的明天贴出来，代码的目的是依次读取数据单元格区域的数据。...

申明 是 申明，赋值 是 赋值，

如果 未赋值，那么 x1 & x2 & i & ":" & x3 & x4 & i 不能表达一个 合法 的Range 参数，导致 错误。
赞一下(1人) 回复此楼
7楼2013-06-21 08:44:41
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

michaelwlin

木虫 (正式写手)

【答案】应助回帖

MOD运算注意加空格

endcolMod26 应为 endcol Mod 26

这样 到 range() 函数 那里，应该没有错误
赞一下(1人) 回复此楼

» 本帖已获得的红花（最新10朵）

bongb
10楼2013-06-21 11:14:40
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通回帖

bongb

银虫 (小有名气)
各位达人注意： 代码中(Asc("A" 的字符A后面的符号 " 和 ) 被自动替换成表情符号了
赞一下 回复此楼
2楼2013-06-19 18:34:04
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

bongb

银虫 (小有名气)
怎么没人回复呢？
赞一下 回复此楼
3楼2013-06-20 11:16:10
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

michaelwlin

木虫 (正式写手)

【答案】应助回帖

★
感谢参与，应助指数 +1
ben_ladeng: 金币+1, 谢谢指教 2013-06-20 21:49:59
大概知道 楼主的代码 想 实现 什么 功能

就 这段 代码 来看，命令Set r = Range(x1 & x2 & i & ":" & x3 & x4 & i)在执行前，未对变量 i 赋值~~~~

你贴的代码 不完全，目前 只能 帮到 这里了。
赞一下 回复此楼

» 本帖已获得的红花（最新10朵）

bongb
4楼2013-06-20 11:21:54
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

bongb

银虫 (小有名气)
送红花一朵
引用回帖:
4楼: Originally posted by michaelwlin at 2013-06-20 11:21:54
大概知道 楼主的代码 想 实现 什么 功能

就 这段 代码 来看，命令Set r = Range(x1 & x2 & i & ":" & x3 & x4 & i)在执行前，未对变量 i 赋值~~~~

你贴的代码 不完全，目前 ...

感谢michaelwlin的解答，
之前有申明的，
public i as integer
public const XMS as integer = 4

具体的明天贴出来，代码的目的是依次读取数据单元格区域的数据。
赞一下 回复此楼
5楼2013-06-20 22:28:22
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

ausir

木虫 (正式写手)

【答案】应助回帖

感谢参与，应助指数 +1
Public i As Integer
Public Const XMS As Integer = 4

Sub test()
Dim r As Range
Dim startcol As Integer, endcol As Integer
Dim x1, x2, x3, x4

Dim s As String

startcol = 1
endcol = startcol + XMS - 1
If startcol \ 26 > 0 Then
    x1 = Chr(Asc("A" + startcol \ 26 - 1)
Else
    x1 = ""
End If

x2 = Chr(Asc("A" + startcol Mod 26 - 1)
'Debug.Print Asc(x1)
Debug.Print Asc(x2)

If endcol \ 26 > 0 Then
    x3 = Chr(Asc("A" + endcol \ 26 - 1)
Else
    x3 = ""
End If
x4 = Chr(Asc("A" + endcol Mod 26 - 1)
'Debug.Print Asc(x3)
Debug.Print Asc(x4)

Debug.Print i

If i = 0 Then i = 1
s = x1 & x2 & i & ":" & x3 & x4 & i
Debug.Print s

Set r = Sheets(1).Range(s)

r.Value = 5

End Sub

注意：i 不能等于 0， 否则 A00 是没有意义的。
赞一下 回复此楼

» 本帖已获得的红花（最新10朵）

bongb
6楼2013-06-21 07:14:09
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

bongb

银虫 (小有名气)
送红花一朵
感谢各位达人回答，
现在遇到的问题有两个：
1.'循环语句Set r = Range(x1 & x2 & i & ":" & x3 & x4 & i)总是无法执行，提示“作用于对象Globle时失败”，而语句'Set r = Range(i & ":" & i)仅能执行当前行

2.怎样让程序自动点击“确定保存”，就是能自动上传并保存全部数据到网页？



我这边的完整代码如下：【参考一篇文献来的，但验证时发现文献中有错误，修改了下；百度了下，网上有类似的疑问，但给出的解答不能解决问题】

Public mWindow As Object
Public mDocument As Object
Public STOPRUN As Integer
Public Const XMS As Integer = 4

Public xm As String '姓名
Public xb As Integer '性别
Public nl As Integer '年龄
Public zc As Integer '职称类别

Public Sub mComGetIEWindows(ByVal IETitle As String, Optional ByVal WaitTime As Integer = 0)
Dim mshellWindow As New SHDocVw.ShellWindows
Dim mIndex As Long
For mIndex = 0 To mshellWindow.Count - 1
If VBA.TypeName(mshellWindow.Item(mIndex).document) = "HTMLDocument" Then

If mshellWindow.Item(mIndex).document.Title = IETitle Then
If WaitTime = 1 Then
Do While mshellWindow.Item(mIndex).Busy
Application.Wait (Now + TimeValue("0:00:01")
DoEvents
Loop
End If

Set mDocument = mshellWindow.Item(mIndex).document
Set mWindow = mshellWindow.Item(mIndex)

mshellWindow.Item(mIndex).Visible = True
Exit Sub
End If
End If
Next mIndex

End Sub

Public Sub GetDataAutoInputContext()
Dim i As Integer
Dim r As Range
Dim x1 As String, x2 As String
Dim x3 As String, x4 As String
Dim startcol As Integer, endcol As Integer
If Selection Is Nothing Then
MsgBox "请先选中处理行", vbOKOnly, "错误"
STOPRUN = 1
Exit Sub
End If

i = Selection.Row
If i < 2 Then
MsgBox "不可处理第一行", vbOKOnly, "错误"
STOPRUN = 1
Exit Sub
End If
startcol = 1
endcol = startcol + XMS - 1
If startcol \ 26 > 0 Then
x1 = Chr(Asc("A" + startcol \ 26 - 1)
Else: x1 = ""
End If
x2 = Chr(Asc("A" + startcolMod26 - 1)
If endcol \ 26 > 0 Then
x3 = Chr(Asc("A" + endcol \ 26 - 1)
Else: x3 = ""
End If
x4 = Chr(Asc("A" + endcolMod26 - 1)
Set r = Range(x1 & x2 & i & ":" & x3 & x4 & i)

'循环语句Set r = Range(x1 & x2 & i & ":" & x3 & x4 & i)总是无法执行，提示“作用于对象Globle时失败”，而语句'Set r = Range(i & ":" & i)仅能执行当前行

For i = 1 To XMS Step 1
Select Case i
Case 1
xm = Trim(r.Cells(1, i).Value) '姓名
Case 2
nl = r.Cells(1, i).Value '年龄
Case 3
If Trim(r.Cells(1, i).Value) = "男" Then
xb = 1
ElseIf Trim(r.Cells(1, i).Value) = "女" Then
xb = 2
Else
MsgBox "性别字段错误", vbOKOnly, "错误"
STOPRUN = 1
Exit Sub
End If
Case 4
Select Case Trim(r.Cells(1, i).Value)
Case "初级"
zc = 1
Case "中级"
zc = 2
Case "高级"
zc = 3
Case Else
MsgBox "职称字段错误", vbOKOnly, "错误"
STOPRUN = 1
Exit Sub
End Select
End Select
Next i

End Sub

Public Sub AutoInputContext()


STOPRUN = 0
Call GetData
If STOPRUN = 1 Then
Exit Sub
End If

mComGetIEWindows ("测试文档"
If mDocument Is Nothing Then
MsgBox "没有找到指定的窗必须先打开才可以自动填表", vbOKOnly, "错误"
Exit Sub
End If


Do While mWindow.Busy
DoEvents
Loop


With mDocument.forms(0)
.Item("textfield1".Value = xm
.Item("textfield2".Value = nl
.Item("rbgroup".Item(xb - 1).Checked = True
.Item("select1".Item(zc - 1).Selected = True
.Item("Submit1".Click
End With

'释放对象
Set mDocument = Nothing
Set mWindow = Nothing
End Sub
赞一下 回复此楼
8楼2013-06-21 09:09:40
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

bongb

银虫 (小有名气)
送红花一朵
引用回帖:
6楼: Originally posted by ausir at 2013-06-21 07:14:09
Public i As Integer
Public Const XMS As Integer = 4

Sub test()
Dim r As Range
Dim startcol As Integer, endcol As Integer
Dim x1, x2, x3, x4

Dim s As String

startcol = 1
endcol = startco ...

谢谢，刚贴出我这边的完整代码，能帮忙看下解决问题不？
赞一下 回复此楼
9楼2013-06-21 09:11:01
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 bongb 的主题更新
131/2返回列表12下一页
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 有时候，自然基金真的不能太认真 （我的申报经验） +9 majunge000 2026-08-11 11/550 2026-08-15 23:20 by botar
[基金申请] filecode=后面第一个是大写字母 +6 wangze12014 2026-08-14 7/350 2026-08-15 20:12 by gltch
[基金申请] filecode +8 cratir 2026-08-14 12/600 2026-08-15 18:08 by zyfgau
[基金申请] 关于Filecode分析方法 +10 majunge000 2026-08-10 13/650 2026-08-15 12:26 by hanpeng972
[基金申请] 各位道友，我要去昆明玩几天，回来见。 +7 Tide man 2026-08-14 8/400 2026-08-15 01:11 by arzu_hma
[基金申请] 是这周出结果还是下周出结果？ +4 yuleib84 2026-08-11 4/200 2026-08-14 23:05 by lfy8008
[基金申请] 奇怪，两个人的filecode固定段从头到尾一模一样 +8 布布和一二 2026-08-10 11/550 2026-08-14 14:58 by Equinoxhua
[硕博家园] 请教兼职经验 +3 是阿文鸭 2026-08-09 3/150 2026-08-14 12:07 by HER12025
[基金申请] FileCode能看出啥？ +10 要乐观耀哥 2026-08-10 32/1600 2026-08-14 09:37 by 要乐观耀哥
[基金申请] 我的国基提前知道中了，可是同事的操作让我实在接受不了，怎么会有这样的人 +10 家与远方 2026-08-10 15/750 2026-08-14 02:08 by 绵羊哥哥
[文学芳草园] 阿姨 +4 汪汪锅 2026-08-09 4/200 2026-08-13 19:43 by arzu_hma
[基金申请] 静等基金结果 +8 gjjjzhong 2026-08-10 21/1050 2026-08-13 17:56 by 且听虎啸
[基金申请] 不应该看fileCode +7 且听虎啸 2026-08-12 9/450 2026-08-13 14:27 by flydreamws
[基金申请] Filecode 又变了，巨变 +3 WH3796 2026-08-12 4/200 2026-08-13 14:13 by 小木虫6752397
[基金申请] 分享一下我之前已中青C的计划书的filecode +4 布布和一二 2026-08-11 5/250 2026-08-13 12:56 by cratir
[基金申请] 2019年青年基金涵评意见，大家看看几个A，几个B? +11 Tide man 2026-08-11 11/550 2026-08-13 07:35 by 撸猫猫
[基金申请] 帮忙看看fileCode +7 wwncly 2026-08-10 13/650 2026-08-11 19:36 by 冰心玉壶晴
[基金申请] 为什么网上很多人说本周 12号出结果 +6 瞬息宇宙 2026-08-10 7/350 2026-08-11 19:25 by Tide man
[基金申请] 国自然结果 +4 Vierhys 2026-08-10 8/400 2026-08-10 15:06 by Vierhys
[基金申请] 据悉今年马上要出结果了 +7 瞬息宇宙 2026-08-10 8/400 2026-08-10 12:42 by Vivilian
信息提示
关闭
请填处理意见
关闭