Application.Workbooks.Open FileName

paul2002 2006-09-20 02:18:57

在VBA中用Application.Workbooks.Open FileName 可以打开excel文件，但是当EXCEL在IE中in-place打开时，该方法失效，请问怎样解决？
3X

...全文

375 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

m00ners 2006-12-01

打赏
举报

不懂。帮顶

wada0880 2006-11-10

打赏
举报

不明白

Dunzip 2006-11-08

打赏
举报

关注

jam021 2006-11-08

打赏
举报

没看明白,关注中

hhjjhjhj 2006-09-21

打赏
举报

Dim xlapp As New Application
xlapp.Visible = True
xlapp.Workbooks.Open FileName

======================

欢迎光临“OFFICE论坛”http://office.9zp.com

happy_sea 2006-09-21

打赏
举报

不会，帮顶！

paul2002 2006-09-21

打赏
举报

没人气啊

Delphi7 在Excel中插入图表，向excel中插入圆饼图表、柱状图表、圆锥图表、棱锥图表这四种图表，需要你的电脑上之前安装有Excellent2003、2007等版本，不过高版本没有测试是否可用，我觉得这个功能还是挺实用的：　　begin 　　 Excel :=CreateOleObject('Excel.Application'); 　　 WorkBook := Excel.Workbooks.Open(FileName := ExtractfilePath(Application.ExeName) 'Book2.xls'); 　　 WorkSheet := Excel.Sheets.item['Sheet1']; 　　 Excel.Visible := true; 　　 ChartObject := WorkSheet.ChartObjects.Add(100, 100, 400, 300); 　　 ChartObject.Chart.ChartType :=temp; 　　 ChartObject.Chart.SetSourceData(WorkSheet.Range['A1:E5']); 　　end

Delphi 把excel内容转换成HTML格式，将Excel表存入到html中的实例源码，后边会附上源码下载地址，转换过程可参考以下代码：　　if Edit1.Text<>'' then 　　begin 　　 ExApph := CreateOLEObject('Excel.Application'); 　　 ExApph.visible := True; 　　 ExApph.WorkBooks.Open(Edit1.Text); 　　 ExApph.ActiveWorkbook.SaveAs(Extractfilepath(Application.ExeName) 'mm.htm',xlHtml); 　　 ExApph.quit; 　　 ExApph := unassigned; 　　end 　　else 　　 showmessage('请选择Excel表'); 　　保存Excel文件的代码如下，完整源码请下载查看：　　procedure TForm1.SpeedButton1Click(Sender: TObject); 　　begin 　　 OpenDialog1.Filter := '*.xls|*.XLS'; 　　 if OpenDialog1.Execute then 　　 Edit1.Text := OpenDialog1.FileName 　　 else 　　 Edit1.Clear; 　　end;

C# 通过反射调用com组件，封装了几个简单的方法方便使用反射调用com。 var obj=new ComObj("excel.application"); obj["Visible"]=true; obj. InvokeMethod("Application.Workbooks.Open", fileName);

private void Save2Excel() { //string file = "F:\\11\\ck.xlsx"; //string path = "F:\\11\\excel\\"; string time = DateTime.Now.ToString("yyyyMMdd"); string file = System.Windows.Forms.Application.StartupPath + "\\ck.xlsx"; string path = System.Windows.Forms.Application.StartupPath + "\\excel\\"; if (!Directory.Exists(path)) { Directory.CreateDirectory(path); } string saveName1 = path + "_" + DateTime.Now.ToString("yyyyMMddHHmmss") + ".xlsx"; excel = new CCExcel(file,saveName1); excel.Exceldata(); } private void textBox1_TextChanged(object sender, EventArgs e) { Form1.name = textBox1.Text.ToString(); } private void Form1_Load(object sender, EventArgs e) { comboBox1.Text = 11.ToString(); comboBox2.Text = 100.ToString(); } private void comboBox1_SelectedIndexChanged(object sender, EventArgs e) { Form1.comB1 = comboBox1.Text.ToString(); } private void comboBox2_SelectedIndexChanged(object sender, EventArgs e) { Form1.comB2 = comboBox2.Text.ToString(); } } public class CCExcel { public Excel.Application appExcel; public Excel.Workbooks wbs; public Excel.Workbook wb; public Excel.Worksheets wss; public Excel.Worksheet ws; private string fileName; private string saveName; public CCExcel(string fileName,string saveName) { // //TODO: 在此处添加构造函数逻辑 // this.fileName = fileName; this.saveName = saveName; } public void Exceldata() { Create(); //Open(fileName); Data2Excel(); Save(saveName); //Save(wb,saveName); //appExcel.ActiveWorkbook.SaveCopyAs(fileName); //判断当前激活的表，并保存这个表。否则，保存时会弹出“是否保存Sheet1.xlsx”的对话框 wb.Close(Type.Missing, Type.Missing, Type.Missing); wbs.Close(); appExcel.Quit(); wb = null; wbs = null; appExcel = null; GC.Collect(); } private void Create()//创建一个Excel对象 { appExcel = new Excel.Application(); wbs = appExcel.Workbooks; wb = wbs.Add(true); //ws = (Excel.Worksheet)wb.ActiveSheet;//这是一个只读sheets集合 //Excel.Worksheet worksheet = wb.ActiveSheet as Excel.Worksheet;//这也是一个只读sheets集合 //Excel.Worksheet ws = (Worksheet)wb.Worksheets[1];//创建工作页sheet单页 ws = wb.Worksheets[1] as Worksheet; //第一个sheet页 ws.Name = "ck"; //这里修改sheet名称 } public void Open(string fileName) { appExcel = new Excel.Application(); wbs = appExcel.Workbooks; wb = wbs.Add(fileName); wb = wbs.Open(fileName,Type.Missing,Type.Missing,Type.Missing,Type.Missing, Type.Missing,Type.Missing,Type.Missing,Type.Missing,Type.Missing, Type.Missing,Type.Missing,Type.Missing,Type.Missing,Type.Missing); }

VBA

2,503

社区成员

10,829

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章