| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 799 人关注过本帖, 1 人收藏
标题:请教:MSHFlexgrid内容存储到EXCEL表的问题
取消只看楼主 加入收藏
lhb8366
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2006-12-7
收藏(1)
 问题点数:0 回复次数:0 
请教:MSHFlexgrid内容存储到EXCEL表的问题

下面是我一直使用的一段程序
没有什么大问题
但是每次存储的时候,EXCEL都弹出一个对话框“在当前位置发现已经存在名位‘RESUME.XLW’的文件,是否替换为现有的‘RESUME.XLW’?”
要点击“是”,才能进行存储
调试发现是运行到这条语句时弹出来的: Excel_App.Save
请教各位,有什么办法不弹出该对话框吗?谢谢了


Dim tem_name As String
Dim Row As Integer
Dim Col As Integer
Dim i, j As Integer

On Error Resume Next
Set Excel_App = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
Set Excel_App = CreateObject("Excel.Application")
End If
Err.Clear
Excel_App.Caption = "Tab"
Excel_App.Workbooks.ADD
Excel_App.Visible = True
Set Excel_sheet = Excel_App.ActiveSheet
Excel_sheet.Range("A1:N100").ClearContents

For i = 0 To MSHF.Rows - 1
For j = 0 To MSHF.Cols - 1
DoEvents
MSHF.Col = j
MSHF.Row = i
Excel_sheet.Cells(i + 1, j + 1) = MSHF.Text
Next j
Next i

Excel_App.Columns.AutoFit
Excel_App.Save
Excel_App.ActiveWorkbook.Close
Set Excel_sheet = Nothing
Excel_App.Quit
Set Excel_App = Nothing

搜索更多相关主题的帖子: EXCEL MSHFlexgrid 
2006-12-14 09:08
快速回复:请教:MSHFlexgrid内容存储到EXCEL表的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016362 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved