当前位置:首页 » 办公资讯 » 怎样把程序放置到excel中

怎样把程序放置到excel中

发布时间: 2022-06-24 00:58:12

㈠ 怎样将动态生成的jsp页面中的数据通过程序(java,javascript都行)导入到excel文档

看看这个可以吗?
ActiveXObject 对象
启用并返回 Automation 对象的引用。

newObj = new ActiveXObject(servername.typename[, location])

ActiveXObject 对象语法有这些部分:

参数
newObj

必选项。要赋值为 ActiveXObject 的变量名。

servername

必选项。提供该对象的应用程序的名称。

typename

必选项。要创建的对象的类型或类。

location

可选项。创建该对象的网络服务器的名称。

说明
Automation 服务器至少提供一类对象。例如,字处理应用程序可能提供应用程序对象、文档对象和工具栏对象。

要创建 Automation 对象,将新的 ActiveXObject 赋给对象变量:

var ExcelSheet;
ExcelApp = new ActiveXObject("Excel.Application");
ExcelSheet = new ActiveXObject("Excel.Sheet");
本代码启动创建对象的应用程序(在这种情况下,Microsoft Excel 工作表)。一旦对象被创建,就可以用定义的对象变量在代码中引用它。 在下面的例子中,通过对象变量 ExcelSheet 访问新对象的属性和方法和其他 Excel 对象,包括 Application 对象和 ActiveSheet.Cells 集合。

// 使 Excel 通过 Application 对象可见。
ExcelSheet.Application.Visible = true;
// 将一些文本放置到表格的第一格中。
ExcelSheet.ActiveSheet.Cells(1,1).Value = "This is column A, row 1";
// 保存表格。
ExcelSheet.SaveAs("C:\\TEST.XLS");
// 用 Application 对象用 Quit 方法关闭 Excel。
ExcelSheet.Application.Quit();
只有当 Internet 安全性关闭时才能完成在远程服务器中创建对象。要在远程网络计算机创建对象,可以将该计算机的名称传递给 ActiveXObject 的 servername 参数。该名称与共享名的机器名部分相同。比如共享名为 "\\myserver\public" 的网络,servername 是 "myserver"。另外,可以用 DNS 格式或 IP 地址指定 servername。

下面的代码返回在名为 "myserver" 的远程网络计算机上运行的 Excel 实例的版本号:

function GetAppVersion() {
var XLApp = new ActiveXObject("Excel.Application", "MyServer");
return(XLApp.Version);
}

㈡ matlab怎么放置excel表格

1、将待导入的矩阵结构的数据录入Excel中,录入时注意行列要跟原矩阵一一对应
2、录入完以后保存数据,为了后续步骤使用方便,命名时我们最好把它命名为我们接下来在MATLAB中要引用的变量名(比如在MATLAB中要将该矩阵作为B矩阵参与运算,就可以把它命名为B.xls,xls为文件扩展名)
3、运行MATLAB程序,点击工具栏上的Import Data工具按钮
4、在弹出的Import Data”对话框中找到前面保存的数据文件(B.xls),“打开”
5、弹出“Import”窗口,在窗口工具栏左侧导入选项中选择“Matrix(矩阵)”,然后点击工具栏右侧的“勾”,导入数据
6、关闭“Import”窗口,回到MATLAB主程序,在WorkSpace(工作空间)中可以看到刚刚导入矩阵变量,接下来就可以对矩阵进行运算了
7、每次关闭MATLAB程序都会将工作空间中的变量清空,所以如果经常用到该变量,不妨将该变量保存为MAT文件
8、这样一来每次打开MATLAB,只需要双击MAT文件便可以将变量导入工作空间

㈢ 怎样将C++语言编写了程序,调到EXCEL中,方便我的查询,请各位高手指点,谢谢!

做到access数据库里面吧,效果一样的,可以查询。
在网上还有现成的函数库。

㈣ 怎么将c++程序得出的结果放到一个excel格式文件里

其实很简单,用制表符分割每个数据,每一行后加一个换行,
存盘的时候存成扩展名.xls就好了

㈤ 如何把VB中产生的数据放进Excel

可以试试 ACCESS----》文件----》获取外部数据-----》导入----》文件类型 选择 Microsoft Excel----》根据提示可以完成导入!

VB 要很多的代码

祝你好运

如果你非得用vb那以下代码 仅供参考

VB是常用的应用软件开发工具之一,由于VB的报表功能有限,而且一但报表格式发生变化,就得相应修改程序,给应用软件的维护工作带来极大的不便。因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报表功能。但由于VB与EXCEL由于分别属于不同的应用系统,如何把它们有机地结合在一起,是一个值得我们研究的课题。

一、 VB读写EXCEL表:

VB本身提自动化功能可以读写EXCEL表,其方法如下:

1、在工程中引用Microsoft Excel类型库:

从"工程"菜单中选择"引用"栏;选择Microsoft Excel 9.0 Object Library(EXCEL2000),然后选择"确定"。表示在工程中要引用EXCEL类型库。

2、在通用对象的声明过程中定义EXCEL对象:

Dim xlApp As Excel.Application
Dim xlBook As Excel.WorkBook
Dim xlSheet As Excel.Worksheet

3、在程序中操作EXCEL表常用命令:

Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见(或不可见)
Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表
xlSheet.Cells(row, col) =值 '给单元格(row,col)赋值
xlSheet.PrintOut '打印工作表
xlBook.Close (True) '关闭工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏
xlBook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏

4、在运用以上VB命令操作EXCEL表时,除非设置EXCEL对象不可见,否则VB程序可继续执行其它操作,也能够关闭EXCEL,同时也可对EXCEL进行操作。但在EXCEL操作过程中关闭EXCEL对象时,VB程序无法知道,如果此时使用EXCEL对象,则VB程序会产生自动化错误。形成VB程序无法完全控制EXCEL的状况,使得VB与EXCEL脱节。

二、 EXCEL的宏功能:

EXCEL提供一个Visual Basic编辑器,打开Visual Basic编辑器,其中有一工程属性窗口,点击右键菜单的"插入模块",则增加一个"模块1",在此模块中可以运用Visual Basic语言编写函数和过程并称之为宏。其中,EXCEL有两个自动宏:一个是启动宏(Sub Auto_Open()),另一个是关闭宏(Sub Auto_Close())。它们的特性是:当用EXCEL打含有启动宏的工簿时,就会自动运行启动宏,同理,当关闭含有关闭宏的工作簿时就会自动运行关闭宏。但是通过VB的自动化功能来调用EXCEL工作表时,启动宏和关闭宏不会自动运行,而需要在VB中通过命令xlBook.RunAutoMacros (xlAutoOpen)和xlBook.RunAutoMacros (xlAutoClose) 来运行启动宏和关闭宏。

三、 VB与EXCEL的相互勾通:

充分利用EXCEL的启动宏和关闭宏,可以实现VB与EXCEL的相互勾通,其方法如下:

在EXCEL的启动宏中加入一段程序,其功能是在磁盘中写入一个标志文件,同时在关闭宏中加入一段删除此标志文件的程序。VB程序在执行时通过判断此标志文件存在与否来判断EXCEL是否打开,如果此标志文件存在,表明EXCEL对象正在运行,应该禁止其它程序的运行。如果此标志文件不存在,表明EXCEL对象已被用户关闭,此时如果要使用EXCEL对象运行,必须重新创建EXCEL对象。

四、举例:

1、在VB中,建立一个FORM,在其上放置两个命令按钮,将Command1的Caption属性改为EXCEL,Command2的Caption属性改为End。然后在其中输入如下程序:

Dim xlApp As Excel.Application '定义EXCEL类
Dim xlBook As Excel.Workbook '定义工件簿类
Dim xlsheet As Excel.Worksheet '定义工作表类
Private Sub Command1_Click() '打开EXCEL过程
If Dir("D:\temp\excel.bz") = "" Then '判断EXCEL是否打开
Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.Visible = True '设置EXCEL可见
Set xlBook = xlApp.Workbooks.Open("D:\temp\bb.xls") '打开EXCEL工作簿
Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表
xlsheet.Activate '激活工作表
xlsheet.Cells(1, 1) = "abc" '给单元格1行驶列赋值
xlBook.RunAutoMacros (xlAutoOpen) 运行EXCEL中的启动宏
Else
MsgBox ("EXCEL已打开")
End If
End Sub

Private Sub Command2_Click()
If Dir("D:\temp\excel.bz") <> "" Then '由VB关闭EXCEL
xlBook.RunAutoMacros (xlAutoClose) '执行EXCEL关闭宏
xlBook.Close (True) '关闭EXCEL工作簿
xlApp.Quit '关闭EXCEL
End If
Set xlApp = Nothing '释放EXCEL对象
End
End Sub

2、在D盘根目录上建立一个名为Temp的子目录,在Temp目录下建立一个名为"bb.xls"的EXCEL文件。

3、在"bb.xls"中打开Visual Basic编辑器,在工程窗口中点鼠标键选择插入模块,在模块中输入入下程序存盘:

Sub auto_open()
Open "d:\temp\excel.bz" For Output As #1 '写标志文件
Close #1
End Sub
Sub auto_close()
Kill "d:\temp\excel.bz" '删除标志文件
End Sub

4、运行VB程序,点击EXCEL按钮可以打开EXCEL系统,打开EXCEL系统后,VB程序和EXCEL分别属两个不同的应用系统,均可同时进行操作,由于系统加了判断,因此在VB程序中重复点击EXCEL按钮时会提示EXCEL已打开。如果在EXCEL中关闭EXCEL后再点EXCEL按钮,则会重新打开EXCEL。而无论EXCEL打开与否,通过VB程序均可关闭EXCEL。这样就实现了VB与EXCEL的无缝连接。

引用方法为:点击VB工程菜单,选择引用,选择Microsoft DAO 3.6 Compatibility Library并确定
'------------------------------------------------
Private Sub Form_Load() '窗口load过程
Dim myDb As Database
Dim myTb As Recordset
Set myDb = OpenDatabase("c:\data.mdb") '打开数据库文件
Set myTb = myDb.OpenRecordset("xpress") '打开表文件
If myTb.RecordCount < 4 Then '表文件记录小于4条退出程序
Set myTb = Nothing
Set myDb = Nothing
Exit Sub
End If

myTb.MoveFirst '记录指针移动到第一条
myTb.Move 2 '记录指针向下移动2条即移动到第三条
Text1.Text = myTb!DefaultValue 'text1赋值为xpress表的DefaultValue字段的第三条记录
myTb.MoveNext '记录指针下移一条
Text2.Text = myTb!DefaultValue 'text2赋值为xpress表的DefaultValue字段的第四条记录
Set myTb = Nothing
Set myDb = Nothing

End Sub

Private Sub Command1_Click()
Dim myDb As Database
Dim myTb As Recordset
Set myDb = OpenDatabase("c:\data.mdb")
Set myTb = myDb.OpenRecordset("xpress")
myTb.MoveFirst '记录指针移动到第一条
myTb.Move 2 '记录指针下移到第三条
myTb.Edit '数据库为编辑状态
myTb!DefaultValue = Text1.Text '数据库xpress表的DefaultValue字段第三条赋值为text1的文本
myTb.Update '保存更改的记录

myTb.MoveNext '记录指针下移一条到第四条
myTb.Edit
myTb!DefaultValue = Text2.Text
myTb.Update

Set myTb = Nothing
Set myDb = Nothing

End Sub
另外,团IDC网上有许多产品团购,便宜有口碑

㈥ 在c中编写的程序怎么样把数据输出到excel表上

简单的方法是通过ODBC来实现:
具体实现
一、 包含Excel文件操作类头文件
#include "CSpreadSheet.h"
二、 新建Excel文件,并写入默认数据
// 新建Excel文件名及路径,TestSheet为内部表名
CSpreadSheet SS("c:\\Test.xls", "TestSheet");

CStringArray sampleArray, testRow;

SS.BeginTransaction();

// 加入标题
sampleArray.RemoveAll();
sampleArray.Add("姓名");
sampleArray.Add("年龄");
SS.AddHeaders(sampleArray);

// 加入数据

㈦ 怎么把宏程序储存在excel里面

复制到模块。然后插入几个按钮,指定宏,按钮改名,以后想用那个就点哪个。

㈧ 我用MFC写了一个界面,控制程序里面读取了很多数据放在了数组中,求问怎么把这些数据放到excel文件中。

保存到excel中比较麻烦,excel还得有驱动(我在网上下载了个封装好的excel.h excel.cpp 直接用的,搜了几句代码,功能实现了,不过我没看懂什么意思)。
我一般直接保存到txt中,这个最简单了。
我把数据放到CString 变量中,然后写入txt的。
1 我把写入txt的函数封装到了 工程.cpp 中了。假设为void AddtoTxt(CString var)
2 在读取此函数的对话框中,extern C工程名App theApp;
3 放入数据到txt中 theApp.AddtoTxt(strtemp);
4.工程.cpp 中的函数体。
CString CRenameFileApp::GetExePath(void)
{
char szFilePath[MAX_PATH + 1]={0};
GetMoleFileNameA(NULL, szFilePath, MAX_PATH);//1111
(strrchr(szFilePath, '\\')+1)[0] = 0; // 删除文件名,只获得路径字串
CString path = szFilePath;

return path;
}

void CRenameFileApp::AddtoTxt(CString strtemp)
{
CString h_path;
h_path=GetExePath();
h_path= h_path+"文件名核对.txt";
CFile file;
if(!file.Open(_T(h_path),CFile::modeReadWrite| CFile::typeBinary))
{
file.Open(_T(h_path),CFile::modeCreate|CFile::modeReadWrite| CFile::typeBinary);
}
file.SeekToEnd();
file.Write(strtemp,strtemp.GetLength());
file.Close();

}

㈨ 怎么样把Word中的某一段内容插入到Excel表格

如果要把Word中的某一段内容以图片形式插入到Excel表格中,可按照如下步骤进行:
首先在Word
中选中要复制的内容,然后单击.编辑→复制.命令,进入Excel
中,按住Shift
键,单击.编辑→粘贴图片.命令,即可将刚才复制的内容以图片格式插入到Excel
表格中,而且在该图片上双击,还可进行文字修改。利用这种方法也可以把.记事本.等其他程序中的内容以图片格式粘贴到Excel中。

㈩ 如何在打开方式里添加EXCEL程序

1.首先使用常规方法看下能否解决。

2.文本文档-右键-打开方式-选择默认程序


热点内容
马路上汽车的噪音在多少分贝 发布:2023-08-31 22:08:23 浏览:2186
应孕棒多少钱一盒 发布:2023-08-31 22:08:21 浏览:1656
标准养老金一年能领多少钱 发布:2023-08-31 22:05:05 浏览:1954
湖北通城接网线多少钱一个月 发布:2023-08-31 21:59:51 浏览:2021
开随车吊车多少钱一个月 发布:2023-08-31 21:55:06 浏览:1780
京东付尾款怎么知道前多少名 发布:2023-08-31 21:52:58 浏览:2104
在学校租铺面一个月要多少钱 发布:2023-08-31 21:52:09 浏览:2247
2寸有多少厘米 发布:2023-08-31 21:50:34 浏览:1885
知道电压如何算一小时多少电 发布:2023-08-31 21:46:20 浏览:1892
金手镯54号圈周长是多少厘米 发布:2023-08-31 21:44:28 浏览:2025