b********s
发帖数: 3 | 1 I tried to use the following function:
my_report.SaveAs(my_xls_file, Excel!, TRUE)
It works fine.
But when I tried to use:
my_report.SaveAs(my_xls_file, Excel5!, TRUE)
I got a file with size 0.
What is the problem? |
|
r******r
发帖数: 346 | 2 我用VBA写macro的时候，遇到了这个问题。在run这一行的时候：
dailyDS.SaveAs fileName:= _
outPath, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=True, _
CreateBackup:=False
有可能出错，也有可能通过了。
outPath是一个ftp地址，包括了用户名和密码，这个用户名和密码肯定能够登陆的。
错误信息就是Runtime error 1004. Method ’SaveAs’ of object ’_Workbook’
failed.
出错以后如果选择debug，continue，这一行就可以通过。
如果一开始在这一行设了断点，手动continue，也没错，可以通过。
如果不出错的话，存下来的文件确实是readonly的。这个比较关键，因为我如果saveas
到本地的话，用bat文件也可以ftp到需要的地点，不过那样ft |
|
r*****s
发帖数: 985 | 3 Hi,
I have a servlet for downloading purpose, mapped as name called
"dlservlet". It gets the file from somewhere else and return
it back to the client as a binary stream.
However, anytime the user gets the file, the browser popups the
saveas dialog with the default filename as "dlservlet". My question
is, is there anyway that I can set the name in the popup saveas
dialog to be the original filename?
Thanks a lot! |
|
b*****l
发帖数: 9499 | 4 用 -nodesktop -nosplash -nodisplay 起来 matlab，执行这个命令：
h = figure, plot(0:0.01:10, sin(0:0.01:10));
saveas(h, 'test.fig', 'fig');
saveas(h, 'test.jpg', 'jpg');
死在第二句执行完，第三句不知道是否执行的地方。
用 R2009b 的同学来验证一下？多谢多谢。 |
|
c********g
发帖数: 530 | 5 saveas(gcf, 'abc.jpeg', 'jpeg'); %or "jpg", don't remember.
or
saveas(gcf, 'abc,png', 'png'); |
|
s******x
发帖数: 15232 | 6 现在就给各位列一堆需要帮助的人
1 * static Dec 28 谁能推荐一个卖Asiana转中国其他城市的代理？
2 * dust2007 Jan 24 在代理那里买UA的机票都不收卡了是吗？
3 * zhipei Jan 31 急问，在代理那儿买的AA的机票可以改日期吗？
4 * xzxy Feb 14 代理给买的票是AA官网上的哪种啊？
5 * Wolbachia Feb 23 回国机票是代理还是kayak价格更便宜啊 (转
载)
6 * rsd Feb 26 代理出票了，要加钱
7 * mandy628 Mar 1 有卖加航机票的代理吗？
8 * dancerflying Mar 9 代理会比网站报价便宜吗
9 * villa Mar 10 机票代理除了要信用卡还要driver lice... 阅读全帖 |
|
N**i
发帖数: 7 | 7 改个路径应该就可以了
Sub ConvertCSV()
Dim Folder
Dim File
Dim i
Folder = "C:\Temp\"
With Application.FileSearch
.NewSearch
.SearchSubFolders = False
.LookIn = Folder
.Execute
Set fs = CreateObject("Scripting.FileSystemObject")
For i = 1 To .FoundFiles.Count
Set File = fs.GetFile(.FoundFiles(i))
If Right(File.Name, 4) = ".xls" Then Application.Workbooks.Open (Folder +
File.Name)
Application.Workbooks(File.Name).SaveAs Folder + File.Name + ".csv",
FileFormat:= |
|
S*********g
发帖数: 5298 | 8 Save all your excel file in one folder.
use the following code.
sub convertCVS()
inPath = "your path to xls file\"
outPath = "your path to save csv\"
f = dir(inpath & "*.xls")
do while len(f)<>0
on error goto skiperror
set w = workbooks.open(inPath & f)
w.saveas filename:=outPath & left(f,len(f)-4)) & ".csv",
fileformat:=xlcsv
w.close false
skiperror:
f=dir()
loop
end sub
whatever.
1000 |
|
x**t
发帖数: 748 | 9 谢谢大家的祝福，50个包子已发完。绿了以后散尽家财都发光。
您转给wbwb,现金(伪币):10,收取转帐费用:0.1 2012-02-17 23:20:35
2 -10.10 您转给Bar,现金(伪币):10,收取转帐费用:0.1 2012-02-17 23:20:15
3 -10.10 您转给mycsh,现金(伪币):10,收取转帐费用:0.1 2012-02-17 23:19:44
4 -10.10 您转给kingseagle,现金(伪币):10,收取转帐费用:0.1 2012-02-17 23:19:23
5 -10.10 您转给zuzuee,现金(伪币):10,收取转帐费用:0.1 2012-02-17 23:19:03
6 -10.10 您转给mstJane,现金(伪币):10,收取转帐费用:0.1 2012-02-17 23:18:08
7 -10.10 您转给Dovee,现金(伪币):10,收取转帐费用:0.1 2012-02-17 23:17:47
8 -10.10 您转给anyaway,现金(伪币):10,收取转帐费用:0.... 阅读全帖 |
|
m*******l
发帖数: 12782 | 10 ☆─────────────────────────────────────☆
bwu (bruce) 于 (Thu Feb 9 12:26:59 2012, 美东) 提到:
美国驻华大使骆家辉2月9日下午在北京宣布，自2月13日起，美国驻华使团将开始实施
一项简化签证审理手续的试行计划。一些合格的非移民签证申请人，如果在之前持有的
签证失效48个月(即4年)内续签，且签证种类与上次相同，则可以为他们免去面谈，予
以续签。
据介绍，在中国，该计划将涉及到之前持有B(临时商务及旅游访问者)、C1(过境)、D(
机组、船组人员)、F(学生)、J(交流访问)、M(非学术学生)以及O(特殊才能)签证的人
员。
这一新的举措也将使首次签证申请人受惠，在一年时间内，能够为他们增加多达10万个
面谈机会。不过骆家辉也指出，美国领事官员仍然有权面谈任何他们判定需要亲自面谈
的申请人。
此外，骆家辉还介绍了美国驻华使团在加强领事业务方面所做的新工作。为满足2012年
及随后日益增长的需求，美国正派出50名新的领事官员到中国，并将在几个月内重新开
放位于北京第一外交区的原美国使馆领事设施。“重... 阅读全帖 |
|
s****s
发帖数: 186 | 11 ID: saveas
Email/MSN: e*********[email protected]
Location：Houston, TX |
|
T**r
发帖数: 7016 | 12 我不是，呵呵，哪用那么费劲，直接saveas就成了。 |
|
f******g
发帖数: 1697 | 13 ☆─────────────────────────────────────☆
porco (porco) 于 (Fri Jul 17 23:53:18 2009, 美东) 提到:
出发前，写于五月份
天气一天比一天热,我又开始蠢蠢欲动,心里又在谋划着一次新的骑行。今天早上跟老板
individual meeting后，老板随口问了一句，暑假打算出去玩吗？咦，居然主动提起，
看来老板忘了去年的事情了。去年年底我回国太久，其实也就5个多礼拜，年初回来后
老板一脸不开心，扣了半个月工资不说，黑着脸说，小伙，你今年不能有假期了。我心
脏一收缩：靠！那我每年计划好的暑期北美骑行计划岂不是泡汤？嘿嘿，看来还是贵人
多忘事，没几个月，早忘了当时有这么个说法。我立刻脱口而出，我要踩单车去大峡谷
。老板说，不错，确定时间后告诉我，好让我在巴黎如果哪天打电话给你，而你不在，
我比较淡定。我说，快开始了。
早上9点多，阳光有点刺眼了，走出系里，抬头望一眼阳光，我真的要去大峡谷吗？或
者，就去附近的Santa Fe好了，来回大概一千公里，时间上比较充裕，不用担心定了机
票回来，却因为在路上耽搁而赶... 阅读全帖 |
|
b*******t
发帖数: 33714 | 14 R2011b mac版
figure习惯set(0,'DefaultFigureWindowStyle','docked'),
然后如果不用saveas命令而是鼠标点那个磁盘图案save plot的话，
有很大概率会报一堆java错，
屏幕左上出来一个消不掉的菜单，
但是除了遮住部分屏幕不影响继续用。
咋办？？ |
|
j*****n
发帖数: 1781 | 15 check out if you have ODBC driver for excel 5. |
|
b********s
发帖数: 3 | 16 Thanks much. I am using PB version 7.0; some people said it maybe the
version's problem. |
|
l******n
发帖数: 9344 | 17 I have a excel file containing many VB codes. I need to save the results as
records. But I do not want the buttons and VB codes saved in the records.
How can I do that? Now I am using saveas, and set the buttons in records
invisible. The codes are still there.
Thanks you, |
|
s*****w
发帖数: 215 | 18 不知道大家怎么做的，
我用的 Microsoft Object libary 的Com组建，和Microsoft interop做的。
有下面这样的code，用了Workbooks.OpenXML（）方法和， Workbooks.SaveAS（）方法。
但是这样做的问题在于，对于比较大的size的XML文件，比如90M，转换往往会死机，而
且如果node多，EXCEL不能超过256个column，不知道大家怎么handle这个问题的？
不知道有没有人用过XslCompiledTransform()方法，如果用的话，参数怎么设的？
如果假设node 不超过256个，用什么库里面什么方法比较有效？
using System;
using System.Collections.Generic;
using System.Text;
using System.Xml;
using System.Xml.Xsl;
using System.Xml.XPath;
using System.Reflection;
using System.Runtime.InteropServices;
using |
|
m********r
发帖数: 334 | 19 一个javascript页面，用window.open下载文件，log后缀就可以saveAs，但是conf文件
就直接在浏览器打开（都是文本文件）
这是客户端的问题吗？ |
|
l******a
发帖数: 3803 | 20
not working - tried.
saveas() not working. |
|
|
j***e
发帖数: 186 | 22 Sub SeparatePagesFromDocument()
Dim rng As Range
Dim i As Integer
Dim oDoc As Document, nDoc As Document
Set oDoc = ActiveDocument
For i = 1 To oDoc.BuiltInDocumentProperties(wdPropertyPages)
Set rng = oDoc.GoTo(what:=wdGoToPage, which:=wdGoToAbsolute, Count:=i)
rng.Select
Set rng = Selection.Bookmarks("\page").Range
rng.Select
rng.Copy
Set nDoc = Documents.Add
nDoc.Range.PasteSpecial
nDoc.SaveAs "C:\temp\" & Replace(oDoc.Name, ".doc", "") & "-Part-" & i
nDoc.Close
Next i
Set r |
|
m******o
发帖数: 61 | 23 我有2个sheets,在同一个workbook 里，用的同样的code去save 成text file. 可是一
个text file 有Text Qualifier （引号），另一个text file就没有。怎么回事呀？谢
谢。
save the code 是：
ActiveWorkbook.SaveAs Filename:="C:\mytextfile.txt", FileFormat:=xlText,
CreateBackup:=False
我不需要text file里的引号，怎样在code 里让保存成text qualifier 是 None?
多谢了！ |
|
x***y
发帖数: 72 | 24 code 见下。excel file 值是 235693.328673913， 用了format,显示为235,693
。转成csv后为"235,693"，请问，如何在csv中存为没有格式的数字？
--------------------------------------------
Dim strExcelFileName
Dim strCSVFileName
Rem strExcelFileName = WScript.Arguments.Item(0) 'file name to parses
strExcelFileName = "test.xlsx"
Rem get path where script is running
Set fso = CreateObject ("Scripting.FileSystemObject") 'use this to find
current path
strScript = Wscript.ScriptFullName
strScriptPath = fso.GetAbsolutePathName(strScript & ".."... 阅读全帖 |
|
|
|
c******l
发帖数: 36 | 27 with MS PowerPoint2002 's saveAs, the resulting HTMLs donot
work well under firefox. Are there any other softwares
to handle this, many thanks.. |
|
m********r
发帖数: 334 | 28 【 以下文字转载自 Internet 讨论区 】
发信人: mindreader (摩登原始人), 信区: Internet
标 题: 为什么下载有的文件IE直接打开了？
发信站: BBS 未名空间站 (Tue Aug 16 17:43:33 2011, 美东)
一个javascript页面，用window.open下载文件，log后缀就可以saveAs，但是conf文件
就直接在浏览器打开（都是文本文件）
这是客户端的问题吗？ |
|
n*****d
发帖数: 956 | 29 Matlab 的 EPS 输出好象是不太好。
试着调整一下 paperposition和 paperorientation。
比如，
% x below is the figure number
set(x, 'paperpositionmode', 'auto');
% auto means print the figure as its original size
% according to the width/height ratio of the figure:
set(x, 'paperorientation', 'landscape'); % or
set(x, 'paperorientation', 'portrait'); %
saveas(x, file_name_with_extension); |
|
s****s
发帖数: 186 | 30 【 以下文字转载自 Engineering 讨论区 】
发信人: saveas (好好爱，用心爱), 信区: Engineering
标 题: 考FE，什么时候可以选考试方向啊？
发信站: BBS 未名空间站 (Mon Aug 4 22:16:09 2008), 转信
准备报名考10月份的了，可是报名表上基本上没啥信息，请问是要在考试的时候当场选
不同的分类吗？还是其他什么时候？
我在TX，有经验的大侠指点一下吧。 |
|
B********e
发帖数: 10014 | 31 h=plot(yn)
saveas(h,'yourfile.ext')
我猜你总得plot再存为图片
谢 |
|
l*******G
发帖数: 1191 | 32 Maybe you have met this annoying problem with matlab. Sometimes, when I
use saveas() or pring -djpeg100 to print a figure in to .jpg file, the
output file will have axes missing, especially when you use colorbar (looks
like the colorbar has squeeized the axes away because of not enough space).
I don't know how to fix it. Please share your tricks.
Thanks
|
|
|
m*l
发帖数: 507 | 34 ☆─────────────────────────────────────☆
raymix (raymix) 于 (Sat Mar 22 12:36:11 2008) 提到:
我估计这个工作更不好找。。。
☆─────────────────────────────────────☆
saveas (好好爱，用心爱) 于 (Sat Mar 22 18:46:28 2008) 提到:
我算是大气化学吧，没方向中......
☆─────────────────────────────────────☆
handldk (stamp) 于 (Sat Mar 22 19:16:50 2008) 提到:
可以进环保部门.
☆─────────────────────────────────────☆
youyou (^右右^心里哇凉哇凉的) 于 (Sat Mar 22 23:48:45 2008) 提到:
co-没
☆─────────────────────────────────────☆
protontan (non sum qualis |
|
s****s
发帖数: 186 | 35 ID: saveas
方向：Atmospheric chemistry, soot aerosol, diesel engine/vehicle emission
testing,
ambient air quality
Publications: EST, JPC, JGR, PCCP, PNAS
Reviewer for: AWMA, Journal of Aerosol Science, Environmental Engineering
Science
Actively seeking review opportunities! |
|
s****s
发帖数: 186 | 36 ID: saveas
方向：Atmospheric chemistry, soot aerosol, diesel engine/vehicle emission
testing,
ambient air quality
Publications: EST, JPC, JGR, PCCP, PNAS
Reviewer for: AWMA, Journal of Aerosol Science, Environmental Engineering
Science
Actively seeking review opportunities! |
|
p********a
发帖数: 5352 | 37 *-> Macro to Combine Worksheets;
%macro many2one(in=,out=);
options noxwait;
x erase "&out";
options xwait;
data _null_;
file "c:\temp\class.vbs";
put 'Set XL = CreateObject("Excel.Application")' /
'XL.Visible=True';
%let n=1;
%let from=%scan(&in,&n," ");
%do %while("&from" ne "");
%let fromwb=%scan(&from,1,"!");
%let fromws=%scan(&from,2,"!");
put "XL.Workbooks.Open ""&fromwb""";
%if &n=1 %then
put "XL.ActiveWorkbook.SaveAs ""&out"", -4143"%str(;);
%else %do;
put "XL.Workbooks(""%scan(&fromwb,- |
|
m*********k
发帖数: 10521 | 38 "[ChinaNews]
kirklook Apr 27 ● ★祝福陈光诚！为自由呐喊！发101个包子★"
成功扣除 1111 伪币的用户: kirklook
成功奖励 10 伪币的用户: xszai, quchudalu, NYUChicago, aben, Myhope2010,
bankbuster, rsshuang, latexcat, asu, alittlefish, ghostlover, cxc, icuchina,
InnerPeace, travelodge, NobleBen, newcopman, shenqi, beitz, cattie,
ZhangZCh, dingdangX, hobnob, temp123, whisperwave, firepig, W247, igarden,
aplets, bluedaisy, bwmm, wonderment, vanness01, Dovee, antholy, littledevil,
fzl0006, Commie, crasher, hanjia, shanefeng, Gianna, zh... 阅读全帖 |
|
m*********k
发帖数: 10521 | 39 "【NCAA】
plex Oct 6. ● 我鳄比赛结束发无限量包子"
成功奖励 10 伪币的用户: soulvirus, miroku, GGYY, sinopeter84, rhsh, Renshaw,
aoyao, BigAL, tosea, o2, yellowtiger, leidage, Bama92, keyw, ipet, hzg2060,
zzfq, palm, Mathworks, wonky, dendron, GeauxTigers, dreamy, tenue, nn2,
ecesis, aspenzh, wishwinglyp, brmj, chehu, leehwy, zhangou888, yiqin,
sunfish, LGTM, ligk, peterx, yituan, inaugurate, IA8888, joss, soulhunter,
lubitcn, violetlvsoso, cnsailor, mindvirus, bonzer, marketscale, starysky,
UVS, dddpppqqq, coo... 阅读全帖 |
|
H******i
发帖数: 4704 | 40 请帮忙从俱乐部金融中心里面拿钱给每个俱乐部会员发一个新年包子，留言是＂羊年大
吉大利！大吉大绿！＂
中国EB23羊年大吉大绿俱乐部
http://www.mitbbs.com/club_bbsdoc/EB23_Policy_News_and_Rumors.h
请代版主发放版面活动奖励（免费）
【模版2】
注：1）版面活动：手续费无；
2）若统计复杂，需提供名单，一行一ID，无空格无标点:备注
代发版面/ID:中国EB23羊年大吉大绿俱乐部
代发事由:羊年大吉大利！大吉大绿！
楼主是否计入统计（如不填写，默认否）: 是
奖励金额（需注明扣除伪币来源）:10
备注:提供名单，一行一ID，无空格无标点；
maomei
pushpull
soul613
Beijing
BigHero
chaoz
steenphen
MSMOM
BlackQueen
baozi777
ghtjyjy
goojje
better100
GoodGodBad3
maxisummeriz
fuhongl
imfool
bobolan88
xixixihahaha
felixtsine
waha
brihand
Fra... 阅读全帖 |
|
m*********k
发帖数: 10521 | 41 "[EB23_Policy_News_and_Rumors]俱乐部会员新年包子"
扣除俱乐部:(EB23_Policy_News_and_Rumors)4741伪币成功
成功奖励10伪币用户：maomei,pushpull,soul613,Beijing,BigHero,chaoz,steenphen,MSMOM,BlackQueen,baozi777,ghtjyjy,goojje,better100,GoodGodBad3,maxisummeriz,fuhongl,imfool,bobolan88,xixixihahaha,felixtsine,waha,brihand,FranklinDou,jack19,JIANFEIBA,Ardone,aeolusloo,umassboy,yoyozhang,yuki1010,lightwindmm,notmyphd,chuge,chris1101,goforgreen,aoisora,blesswo,optimalctrl,higaogao,chageaska,Lalas,ZIWEI,sina1898,uapower,Maxy,devilin... 阅读全帖 |
|
