EXCEL VBA中報1004錯誤

最新推荐文章于 2025-04-12 11:26:08 发布
原创 最新推荐文章于 2025-04-12 11:26:08 发布 · 4.4k 阅读 · 0 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#vba #excel #web

本文介绍如何使用VBA在Excel中定义特定单元格，并通过该单元格执行Web查询，从指定网址抓取数据。
部署运行你感兴趣的模型镜像

VBA中定义单元格：

1.选中单元格

2.选资料/汇入外部资料/新增web查询

    Sheets("Sheet1").Select
    Range("A2").Select
    With Selection.QueryTable
        .Connection = _
        "URL;http://10.100.10.181:8082/pis2report/html/output.jsp?operation=FINAL-DISPLAY&fromDate=20070201&toDate=20070306"
        .Refresh BackgroundQuery:=False
        .RefreshOnFileOpen = False
        .RefreshPeriod = 0
    End With 

您可能感兴趣的与本文相关的镜像

Stable-Diffusion-3.5

Stable-Diffusion-3.5

图片生成
Stable-Diffusion

Stable Diffusion 3.5 (SD 3.5) 是由 Stability AI 推出的新一代文本到图像生成模型，相比 3.0 版本，它提升了图像质量、运行速度和硬件效率

python成绩统计系统xlwings_python3.4在windows系统上使用xlwings操作Excel出现FullName错误解决方案...
weixin_31295867的博客
02-10 741
python语言虽好，也号称跨平台，由于python使用时，往往需要很多内裤，东一个西一个，就像犀利哥身上的衣服，打满了补丁，常常遇到各种莫名其妙的八哥，很是令人头疼。最近我需要用python操作excel，听说xlwings可以通过python让excel插上双翼，据说比VBA还要简易，我看了一下xlwings的语法，确实比VBA要简洁许多，于是开始试用，其它各项操作还好，但是遇到一个非常重要的...
VBA批量折线图
酒和菠萝
07-27 2431
Sub 宏1() ' ' 宏1 宏 ' ' Dim i Range("O2:Y12,E2:N12").Select ActiveSheet.Shapes.AddChart2(240, xlXYScatterSmooth).Select ActiveChart.SetSourceData Source:=Range("Sheet2!$E$2:$Y$2"), PlotBy:=xlRows a = 2 b = 200 For i = a To b...
excel vba “运行时错误1004，应用程序定义或对象定义错误”
热门推荐
06-18 2万+
查看下工具--宏--安全性，安全级别降低，可靠发行商保留空白。如果新建文档也会出现上述情况，试打开EXCEL后，工具--宏--VB编辑器，删除里面的程序，再观察。单击文件――选项――信任中心――打开“信任中心”对话框，宏设置――勾选“信任对VBA工程对象模型的访问”。MsgBox "已清空历史数据" & n - 1 & "行！MsgBox "已清空历史数据" & n - 1 & "行！MsgBox "无数据需要清空，请确认！MsgBox "无数据需要清空，请确认！
【VBA报错1】--vba代码运行时错误1004 应用程序定义或对象定义错误
用余生去守护的博客
10-11 9787
所谓温暖，不过是宇宙诞生后一阵短暂的痉挛所产生的同样短暂的效应，它将像日落后的暮光一样转瞬即逝，能量将消失；只有寒冷永存，寒冷之美才是永恒的美。
关于vba代码运行时错误1004 应用程序定义或对象定义错误问题
jh035512的博客
11-26 3365
分享：“难道生命这漫长进程中所有的努力和希望，都是为了那飞娥扑火的一瞬间？”“飞蛾并不觉得阴暗，它至少享受了短暂的光明。"
Excel VBA 运行时错误1004’:方法‘Open’作用于对象‘Workbooks’时失败 的解决方法
weixin_50083448的博客
04-12 1639
出现这个问题后从网上查找各种办法，有说要进行信任设置的，有说要删除XLSSTART文件夹的，有说什么新版本office对vba格式要求更严格的，信任设置我试了没起作用，后面那2个删除文件夹我就没试，明显不靠谱。错误原理：来源文件是从网站上下载的，而网站上生成的这些excel文件可能格式是不完整的，也就是corrupted，所以在打开这些文件时需要加参数。我的功能是打开一系列excel文件从中自动复制数据到汇总excel的各个指定的sheet中，来源的excel是从网站上下载的。
VBA异常--运行时错误1004（将一个工作簿拆分多个工作表）
往前的娘娘
09-07 1万+
概述： 打算将工作簿拆分多个工作表，抛出异常 原因是这个工作簿中有隐藏的工作表，对于Copy操作，它是不能复制隐藏的工作表的，但是Worksheets是所有工作表的集合（自然有隐藏工作表） 最后的解决办法就是取消隐藏所有工作表，或者进行判断如果是隐藏工作表就过滤掉 if sht.Visible  = True then     执行复制动作 End if  Sub saveT
vba中报错误1004 exce无法打开文件，因文件格式或文件扩展名无效，请确认文件未损坏或文件内容与文件格式相匹配
07-15
根据您描述的情况，出现错误1004通常是由于VBA代码中对Excel文件进行操作时发生了问题。可能是文件格式不正确或文件扩展名无效导致的。 以下是一些可能的解决方案： 1. 确认文件路径和文件名是否正确：请检查您在...
Excel的VBA，你怎么用了C语言。
08-24
- 参考站内引用：但用户提供的引用是关于VBA在Excel中运行错误和VBA函数描述，与C语言调用无关。引用[1]提到VBA代码在Excel中报错，引用[2]描述一个VBA函数。用户说“上述引用仅供参考”，所以我应该忽略这些引用，...
我在wps中编写了一段range对象的copy与special paste代码，可正常运行，但在excel中报错。请分析wps与excel关于copy与special paste方法的区别，并给出修改建议
最新发布
11-20
- 真实知识：Excel和WPS在VBA上有相似之处，但Excel的VBA更成熟和完整。WPS的VBA可能基于Excel的早期版本或有不完全兼容的地方。 - Copy方法：在VBA中，Range.Copy用于复制单元格内容。 - Special Paste方法：通常指...
wps支持vba吗
11-07
- **部分Excel VBA代码需修改**：如引用4的`PivotTableWizard`方法在WPS中报错[^4] - **API调用差异**：涉及Windows API或Excel专属对象时需调整代码 - 推荐测试方案： ```vba Sub CheckVBA() MsgBox "VBA...
VBA运行时错误1004错误
pentium100
11-27 5572
今天帮人做一个VBA宏，　很久没干这活了. Workbooks(dirname).Sheets(i).UsedRange.Copy Sheets(i).Range("A" & usedRows).Select Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormat...
在 Excel 中以编程方式复制工作表会导致运行时错误 1004
xcntime的专栏
11-25 6654
https://support.microsoft.com/zh-cn/kb/210684 针对 Office 2003 的支持已终止 Microsoft 已于 2014 年 4 月 8 日终止了针对 Office 2003 的支持。该更改已影响到您的软件更新和安全选项。 了解这一措施对于您的含义以及如何继续保持受保护状态。 症状 在 Mic
VBA:使用Range和Cells结合导致的1004错误
weixin_44206652的博客
06-04 749
cells未指定目标的话默认是在当前sheet下，引用其他sheet时会因位置不匹配报错。在非当前sheet的cells前加上约束条件，求稳可以每个都加。
EXCEL的一些錯誤提示消息代碼（不完全歸納）
mrtorney的专栏
04-07 1150
以下錯誤消息編號，是本人編程序時及用戶使用時出現的：　　由ＯＬＥ返回的有：（ＶＦＰ均用錯誤號1426來表示）    "8001010a"，意味著 EXCEL正忙  , 比如說它也許正處於打開文件對話框界面    "80020006"，意味著 EXCEL說它不知道名稱 ,  比如說加邊框時報錯 .    "800a03ec"， 意味著EXCEL說它得到未知的 COM 裝態代碼 , 比如說合並居中單元
Excel VBA 学习笔记13：单元格的格式
wang880117的博客
03-23 1643
Excel VBA 学习笔记13：单元格的格式 NumberFormat 属性 (Excel)
VBA 图表的基本操作
叶雪青的博客
08-12 1万+
不知不觉已经学习VBA大半个月了，数据透视表的内容已经学完了，回想一下，demo做得还是比较少，匆匆学完没有练习，很多内容还不熟练，不过为了保持学习的连贯性（当然了，主要是不停地往前学不做练习比较简单），咱就先把书上的内容全学了，再慢慢做练习吧。 本章主要是学习VBA生产图表。 首先假设有这样的一些数据： 一、生成图表前，先看看工作表sheet对象的层次结构： Application Workbook Worksheet ①如果图表是在sheet上的话，层次结构是.
【Excel VBA】使用代码生成图表——Chart和Shape的使用方法
碰碰虎的博客
06-17 9765
纲举目张说明运行效果代码code使用说明 说明 因为在日常应用中很少用到图表，最近帮同事写一个自动生成报告的功能，需要自动生成很多图表以便添加到他的报告中，看来需要写一写使用代码生成图表的文章，一方面自己留存，一方面能帮助到需要它的人。 运行效果 代码code Private Sub CommandButton1_Click() '定义数据区 Dim strRange As String strRange = "$B$2:$C$9" '查找所有本Sheet中的所有图表，然后删除
VBA 关于shape相关，图形，形变，变色，旋转效果。shapes.addshape (msoAutoShapeType)的属性，方法等
奔跑的犀牛先生
01-01 1万+
先展示下今天做的效果 按钮1：绑定start1() 按钮2：绑定stop1() 文字旋转效果 图形，形变，变色，旋转效果 四角星是插入的图形，文字是插入的艺术字（选择图形效果--选形状） 对应的代码 Private switch1 Sub stop1() switch1 = False End Sub Sub start1() Dim p1, p2 As Shape Set p1 = Worksheets("sheet1").Shapes(1) Set p2 = Workshe...
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值