程序執行時出錯,請幫忙看看-CSDN论坛

程序執行時出錯,請幫忙看看

其他开发语言 > Office开发/ VBA

收藏回复

[问题点数：20分，结帖人M_Judy0]

⋅每隔一行自動遞增一次序號,並自動統計個數 ⋅刪除重複值程式出現異常現象,不知如何修改. ⋅如何判斷兩個工作表內含有相同的值,並刪除其中一個表內此值所在列的資料 更多帖子 关注私信空间博客 M_Judy0 等级 本版专家分：24 结帖率 100%: 程序執行時提示執行階段錯誤1004,EXCEL無法取用檔案......
Sub Shipping()
Dim MyPath As String
    Sheets("shipdata").Select
    MyPath = ThisWorkbook.Path & "\shipdata\"
    Sheets("shipdata").Copy
        ActiveWorkbook.SaveAs MyPath & "shipdata_GSL_" & _
            Year(Range("D1")) & "_" & Month(Range("D1")) & "_" & Day(Range("D1")) & ".xls"

    With Range("D1")
        .Copy
        .PasteSpecial Paste:=xlPasteValues
    End With
        ActiveWorkbook.Save
        ActiveWorkbook.Close True

    Sheets("shipdata").Select
    With Range(Range("B3:D3"), Range("B3:D3").End(xlDown))
        .ClearContents
        .Borders(xlDiagonalDown).LineStyle = xlNone
        .Borders(xlDiagonalUp).LineStyle = xlNone
        .Borders(xlEdgeLeft).LineStyle = xlNone
        .Borders(xlEdgeTop).LineStyle = xlNone
        .Borders(xlEdgeBottom).LineStyle = xlNone
        .Borders(xlEdgeRight).LineStyle = xlNone
        .Borders(xlInsideVertical).LineStyle = xlNone
        .Borders(xlInsideHorizontal).LineStyle = xlNone
    End With
    Range("B3").Select
End Sub

2008-11-07 10:38:00

点赞只看楼主引用举报楼主收起

展开阅读全文

⋅如何对DataRow数组执行复杂的排序规则 ⋅继承并扩展的控件，在设计时如何可见 更多帖子 关注私信空间博客 haiyangshao 等级 本版专家分：37: 按F8键, 单步调试一下, 就会发现错误在哪里了.
后面的代码:
    With Range("D1")
        .Copy
        .PasteSpecial Paste:=xlPasteValues
    End With
        ActiveWorkbook.Save
        ActiveWorkbook.Close True

    Sheets("shipdata").Select
    With Range(Range("B3:D3"), Range("B3:D3").End(xlDown))
        .ClearContents
        .Borders(xlDiagonalDown).LineStyle = xlNone
        .Borders(xlDiagonalUp).LineStyle = xlNone
        .Borders(xlEdgeLeft).LineStyle = xlNone
        .Borders(xlEdgeTop).LineStyle = xlNone
        .Borders(xlEdgeBottom).LineStyle = xlNone
        .Borders(xlEdgeRight).LineStyle = xlNone
        .Borders(xlInsideVertical).LineStyle = xlNone
        .Borders(xlInsideHorizontal).LineStyle = xlNone
    End With
    Range("B3").Select

应该都不会发生阶段性错误
主要检查前面的几句代码
    Sheets("shipdata").Select
    MyPath = ThisWorkbook.Path & "\shipdata\"
    Sheets("shipdata").Copy
        ActiveWorkbook.SaveAs MyPath & "shipdata_GSL_" & _
            Year(Range("D1")) & "_" & Month(Range("D1")) & "_" & Day(Range("D1")) & ".xls"

看看文件路径是否存在, 或者当前用户有没有访问权限

2008-11-07 15:07:38

点赞只看TA 引用举报 #1得分 20

⋅每隔一行自動遞增一次序號,並自動統計個數 ⋅刪除重複值程式出現異常現象,不知如何修改. ⋅如何判斷兩個工作表內含有相同的值,並刪除其中一個表內此值所在列的資料 更多帖子 关注私信空间博客 M_Judy0 等级 本版专家分：24: 我已解決,謝謝!

2008-11-07 17:33:11

点赞只看TA 引用举报 #2得分 0

收起

收藏回复

M_Judy0

等级：

关注私信 TA的帖子

Samba服务器的使用: 第十六章、檔案伺服器之二： SAMBA 伺服器切換解析度為 800x600 最近更新日期：2011/07/29 ...如果想要共用檔案，在 Linux 對 Linux 的環境下，最簡單的方法就是透過 NIS 這玩意兒了！至於 Windows 對 ...

源碼追蹤經驗談: 这是 http://www.jjhou.com/article02-2.pdf 的 HTML 档。Google在网路漫游时

用 Python+Numpy+scipy 執行 Matlab 的矩陣計算: 以下企圖將我原先用Matlab跑的有關矩陣(線性代數)的操作, 轉成用 Python + numpy + scipy 來執行求解 Ax=B, Matlab指令為 x = A\B, 而 Python + numpy + scipy 為 x= scipy.linalg.solve(A,B)

學習Shell Scripts: 原贴地址：http://linux.vbird.org/linux_basic/0340bashshell-scripts.php1. 什麼是 ...　1.2 第一支 script 的撰寫與執行　1.3 撰寫 shell script 的良好習慣建立2. 簡單的 shell script 練習：3. 善用判斷式：　3.1

Delphi编译开关=====转帖收藏: Delphi编译指令详解(1-10)发表:不详阅读:次关键字：不详字体:[大中小] Delphi编译指令详解(1)...编译器根据不同的指令按不同的方式编译程序。你可以将一个编译指令放在程序的任何位置。编译指令的开始字符是

完美程序设计指南: 完美程式設計指南自我維護小工具var divleftvar nIconWidth = 61;var nIconHeight = 57;var nIconMarginX = 27;var nIconMarginY = 100;var nScrollBarWid

程序输入法汉子字库: 一：根据拼音输入汉字字库 a 啊阿嗄腌锕錒 ai 爱矮挨哎碍癌艾唉哀蔼隘埃皑嗌嫒瑷暧捱砹嗳锿霭乂伌僾儗凒剀剴叆呃呝啀嘊噫噯堨塧壒娭娾嬡嵦愛懓懝敱敳昹曖欬欸毐溰溾濭烠焥璦皚皧瞹硋磑礙絠薆藹諰譪譺賹躷醷鎄鑀閡阨...

c#中的有用的方法: using System;using System.Data;using EBiz.Security.API;using System.IO;using System.Reflection;using System.Text;using System.Text.RegularExpressions;using System.Xml;using System.Xml....

如何成為一位傑出的工程師: 如何成為一位傑出的工程師 How to be a Star Engineer Robert E. Kelley, CarnegieMellon University (Robert E. Kelley, "How to be a star engineer," IEEE Spectrum, pp.51-58, Oct. 1999.) 翻譯...

鸟哥的Linux私房菜(服务器)- 第二十章、WWW 伺服器: 第二十章、WWW 伺服器最近更新日期：2011/08/05 ...我們最常講的『架站』其實就是架設一個 Web 網站啦！...那就是全球資訊廣播的意思 (World Wide Web)，或者也可以稱之為互連網吧！...目前在 Unix-L

JavaScript 简体繁体转换小程序: 网上常见简体繁体转换小程序，但多是常用的3000多字，我这里把文字整理得多一些，语句理清一些。主要思路还是把主要汉字的简体和繁体版本做两个字符串，按对应位置找到对应的字。...

认识与学习Bash: 什么是SHELL 我們必須要透過『 Shell 』將我們輸入的指令(e.g. ls, cp)與Linux Kernel 溝通。Linux 是多人多工的環境，每個人登入系統都能取得一個 bash SHELL的好处文字介面的 shell...

WINXP藍屏含義: ***STOP 0x0000001E(0xC0000005,0xFDE38AF9,0x0000001,0x7E8B0EB4)KMODE_EXCEPTION_NOT_HANDLED ***其中錯誤的第一部分是停機碼(Stop Code)也就是STOP 0x0000001E, 用於識別已發生錯誤的類型, 錯誤第二部分是被括...

第二十章、WWW 伺服器: 我們最常講的『架站』其實就是架設一個 Web 網站啦！那麼什麼是 Web 呢？那就是全球資訊廣播的意思 (World Wide Web)，或者也可以稱之為互連網吧！這個是我們目前的人類最常使用的 Internet 的協定之一啦！...

鸟哥的linux私房菜---非常好的linux基础网址【转】: 在 Linux 的環境下，如果你不懂 bash 是什麼，那麼其他的東西就不用學了！因為前面幾章我們使用終端機下達指令的方式，就是透過 bash 的環境來處理的喔！所以說，他很重要吧！bash 的東西非常的多，包括變數的...

Shell Scripts基础: 1. 什麼是 Shell Script 　1.1 幹嘛學習 shell scripts 　1.2 第一支 script 的撰寫與執行 ...　1.3 撰寫 shell script 的良好習慣建立 ...　2.1 簡單範例：對談...　2.2 script 的執行方式差異 (source, sh sc...

Delphi编译指令详解-收集②: {$IFDEF WIN32} -- 這可不是註解喔!對於Delphi來說﹐左右大括號之間的內容是註解﹐然而「{$」(左括號後緊接著貨幣符號)對於Compiler(編譯器)而言並不是註解﹐而是寫給Compiler看的... 它們又能幫我們什麼忙呢?Compi...

Microsoft SQL Server 2000 超級管理手冊(六): 6. 容量規劃容量規劃的種類容量規劃的歷史交易處理容量規劃的原則記憶體的容量規劃處理器的容量規劃磁碟子系統容量規劃網路的容量規劃選擇收集的資料本章總結容量規劃包括計...，使新增軟硬體時減少對系統執行時的影響...

鸟哥的 Linux 私房菜 -- 学习 bash shell: 第十一章、認識與學習 BASH 切換解析度為 800x600 最近更新日期：2009/08/25 ...在 Linux 的環境下，如果你不懂 bash 是什麼，那麼其他的東西就不用學了！因為前面幾章我們使用終端機下達指令的方式，就是透過 ...

Page类与Control类的生命周期(life cycle)比较总结[转]: <br />最近一段時間在使用Microsoft SharePoint2007，進行開發一個Document 管理系統，裡面有使用SharePoint Designer設計Page佈局，需要使用自定義開發的Webpart 控件，由於本來就沒有進行搞控件開發了，再...

簡易 Mail Server 架設 -- Sendmail 設定 by 鸟哥: Mail 與 DNS 的重要相關性，然後依序介紹 Mail Server 的相關名詞，以及 Mail Server 的運作基本流程與協定，也會談到相關的 Relay 與郵件認證機制等項目，這些項目對於未來郵件主機的管理與設定是重要的，請不要...

計算機概論: 第零章、計算機概論切換解析度為 800x600 最近更新日期：2009/08/03 ... 這幾年鳥哥開始在大學任教了，在教學的經驗中發現到，由於對 Linux 有興趣的朋友很多可能並非資訊相關科系出身，因此對於電腦硬體及計...

《java深度历险》学习笔记--深入类别载入器: 程序的动态性是指程序的class文件可以动态加载，这样做可以增加程序的弹性，节省内容，但是要以牺牲加载时间为代价，最重要的是它可以使程序在无需重启进行重新编译的情况下，更新程序功能。 2、程序动态性带来...

編譯指令與說明: 編譯指令與說明作者: 錢達智(Wolfgang Chien) wrote on 1996.12.15-19 E-mail: wolfgang@ms2.hinet.net WWW: http://www.aaa.hinet.net/delphi/~chien.htm {$IFDEF WIN32} -- 這可不是註解喔!...

文件和目录管理: 特殊目錄. 代表此層目錄.. 代表上一層目錄- 代表前一個工作目錄~ 代表『目前使用者身份』所在的家目錄~account 代表 account 這個使用者的家目錄(account是個帳號名稱) [root@www ~]# cd ~vbird# ...

简易Mail Server 架设 -- Postfix 设定: Postfix 的用途是用作邮件服务器...... 簡易 Mail Server 架設 -- Postfix 設定(鳥哥的 Linux 與 ADSL 私房菜 ) 最近更新日期：2004/04/07　在介紹完了 sendmail 之後，您是否覺得～唉！怎麼 sendmail.cf 這個設定...

Java基础核心技术：面向对象编程(day05-day07): 本套Java视频完全针对初级学员，课堂实录，自发布以来，好评如潮！Java视频中注重与学生互动，讲授幽默诙谐、细致入微，覆盖Java基础所有核心知识点，同类Java视频中也是代码量大、案例多、实战性强的。同时，本Java视频教程注重技术原理剖析，深入JDK源码，辅以代码实战贯穿始终，用实践驱动理论，并辅以必要的代码练习。通过20的课程学习，使学员掌握java核心语法、面向对象思想编程、异常处理、IO流、集合类、多线程、网络编程等。

xmind破解版: 脑图工具，xmind破解版，非常好用，内含破解文件，安装简单

java jdk 8 帮助文档中文文档 chm 谷歌翻译: JDK1.8 API 中文谷歌翻译版 java帮助文档 JDK API java 帮助文档谷歌翻译 JDK1.8 API 中文谷歌翻译版 java帮助文档 Java最新帮助文档本帮助文档是使用谷歌翻译，非人工翻译。准确性不能保证，请与英文版配合使用文件打开空白右键文件属性解除锁定

Autojs 例子源码 1600多个教程源码: autojs例子大全，一千六百多个脚本,简单的到复杂的例子，统统有，小白学完马上变大神，大神学了变超神。脚本内容包含：几十种类型的UI脚本，抖音、QQ、微信、陌陌、支付宝等自动化操作的脚本、还有部分协议列表，HTTP协议(POST、GET)上传下载，接码模块，百度文字识别api模块，文件操作模块：txt文本读一行删一行，等等其他例子

相关热词 c# 挂机锁 c# 不能再打开其它表了 c#移除行 c#socket建立通信 c# 拦截socket c#做一个问卷调查 c++结构体转换为c# c# 判断组合键 c# 的类重写dll c# 五层嵌套优化