⑴ 如何將word里多行的內容復制到excel里的表格里
將Word里多行的內容復制到Excel里的表格里,可以通過以下步驟高效完成:
准備Word內容:
復制Word內容:
打開Excel並定位目標單元格:
粘貼為文本:
調整格式(如果需要):
保存工作簿:
通過以上步驟,你可以高效地將Word里的多行內容復制到Excel表格中,大大節省了時間和精力。
⑵ 如何用c++讀取word文檔
基本步驟
(1)創建)一個 MFC 的程序工程。
注意:在VC中對WORD進行操作需要在MFC AppWizard - Step 2 of
4中的Automaiton選項上打上勾。
(2)Ctrl+W 執行 ClassWizard(本文按照 VC6 操作,示常式序是在VC6 下編寫測試的)。
(3)Add Class...From a type Library... 在 Office
目錄中,找到想使用的類型庫。(我使用的是 Office2003,其Word 的類型庫文件,保存在 E:Program
FilesMicrosoft OfficeOffice12MSWOR.OLB)。
(4)選擇類型庫文件後,在彈出的對話窗中繼續選擇要添加的類。具體選擇什麼類,要看你將來在程序中打算調用什麼功能。當然,也可以不用考慮這么多,用滑鼠和Shift鍵配合,全部選擇也可以。
(5)初始化COM。方法一,找到App的InitInstance()函數,在其中添加
AfxOleInit()函數的調用;方法二,在需要調用COM功能的地方 CoInitialize(NULL),調用完畢後
CoUninitialize()。
(6)在你需要調用 Office 功能函數的 cpp 文件中
#include
<atlbase.h> //
為了方便操作 VARIANT 類型變數,使用 CComVariant 模板類
#include "文件名.h" //
具體的頭文件名,是由裝載類型庫的文件名決定的,如MSWORD。
示常式序:
//word應用程序
_Applicationapp;
//初始化連接
app.CreateDispatch("word.Application");
Documentsdoc;
CComVariant
a(_T(strWord)),b(false),c(0),d(true),aa(0),bb(1);
_Documentdoc1;
doc.AttachDispatch(app.GetDocuments());
doc1.AttachDispatch(doc.Add(&a,&b,&c,&d));
Rangerange;
//求出文檔的所選區域
range=doc1.GetContent();//取出文件內容
str=range.GetText();
m_richedit.SetWindowText(str);
//關閉
app.Quit(&b,&c,&c);
//釋放環境
app.ReleaseDispatch();
⑶ 怎麼用C/C++語言讀取excel文件的某一行某一列
曾用C++ Builder 寫過EXCEL操作。
一般有兩種方法:
1,用ADO連續EXCEL資料庫,這種方式,操作可用SQL來操作。
2,用OLE方式,這種方式可以達到EXCEL中大部分的功能和操作。
以下供參考:
/************* 1--- ADO *************/
//.h
//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBGrids.hpp>
#include <Dialogs.hpp>
#include <Grids.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TButton *btnOpen;
TButton *btnExit;
TOpenDialog *OpenDialog1;
TButton *btnEx;
TDataSource *DataSource1;
TADOConnection *ADOConnection1;
TADOQuery *ADOQuery1;
TDBGrid *DBGrid1;
void __fastcall btnExClick(TObject *Sender);
void __fastcall btnOpenClick(TObject *Sender);
void __fastcall btnExitClick(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
//.cpp
//---------------------------------------------------------------------------
#include <vcl.h>
#include <stdio.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
DBGrid1->DataSource = DataSource1;
DataSource1->DataSet = ADOQuery1;
ADOQuery1->Connection = ADOConnection1;
ADOConnection1->LoginPrompt = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btnExClick(TObject *Sender)
{
if(ADOQuery1->Active && ADOQuery1->RecordCount>0 )
{
int col;
AnsiString s;
FILE *fp;
fp = fopen("c:\\out.txt","w+t");
if(fp==NULL)
{
Application->MessageBox("導出文件建立失敗","提示");
return ;
}
col = ADOQuery1->Fields->Count;
ADOQuery1->First();
while(!ADOQuery1->Eof)
{
s = "";
for(int i=0;i<col;i++)
s += ADOQuery1->Fields->Fields[i]->AsString +"\t";
fprintf(fp,"%s\n",s.c_str());
ADOQuery1->Next();
}
fclose(fp);
}
else
{
Application->MessageBox("沒有需要導出的記錄,請重新打開XLS文件","提示");
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btnOpenClick(TObject *Sender)
{
AnsiString sFile="";
AnsiString sCon;
if(OpenDialog1->Execute())
{
sFile = OpenDialog1->FileName;
/*
sCon = AnsiString("Driver={Microsoft Excel Driver (*.xls)};DBQ=")
+ sFile +"; ";
*/
sCon = AnsiString("Provider=MSDASQL.1;Persist Security Info=False;Extended Properties='DSN=Excel Files;DBQ=")
+ sFile +"'; ";
}
try
{
if(sFile!="")
{
ADOConnection1->Connected = False;
ADOConnection1->ConnectionString = sCon;
ADOConnection1->Connected = True;
}
}
catch(...)
{
Application->MessageBox("連接XLS失敗","提示");
return ;
}
if(ADOConnection1->Connected)
{
AnsiString sSQL = "Select * from [Sheet1$]";
ADOQuery1->SQL->Text = sSQL;
ADOQuery1->Active = True;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btnExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
/************* 2-- OLE *************/
C++ Builder把Excel自動化對象的功能包裝在下面的四個Ole Object Class函數中,應用人員可以很方便地進行調用。
設置對象屬性:void OlePropertySet(屬性名,參數……);
獲得對象屬性:Variant OlePropertyGet(屬性名,參數……);
調用對象方法:1) Variant OleFunction(函數名,參數……);
2) void OleProcere(過程名,參數……);
在程序中可以用宏定義來節省時間:
#define PG OlePropertyGet
#define PS OlePropertySet
#define FN OleFunction
#define PR OleProcere
舉例:
ExcelApp.OlePropertyGet("workbooks").OleFunction("Add");
可寫為
ExcelApp.PG("workbooks").FN("Add");
C++ Builder中使用OLE控制Excel2000,必須掌握Excel2000的自動化對象及Microsoft Word Visual Basic幫助文件中的關於Excel的對象、方法和屬性。對象是一個Excel元素,屬性是對象的一個特性或操作的一個方面,方法是對象可以進行的動作。
首先定義以下幾個變數:
Variant ExcelApp,Workbook1,Sheet1,Range1;
1、Excel中常用的對象是:Application,Workbooks,Worksheets等。
★創建應用對象★
Variant ExcelApp;
ExcelApp = Variant::CreateObject ("Excel.Application");
或者
ExcelApp = CreateOleObject ("Excel.Application");
★創建工作簿對象★
Variant WorkBook1;
WorkBook1 = ExcelApp.PG("ActiveWorkBook");
★創建工作表對象★
Variant Sheet1;
Sheet1 = WorkBook1.PG("ActiveSheet");
★創建區域對象★
Variant Range;
Range = Sheet1.PG("Range","A1:A10");
或者使用
Excel.Exec(PropertyGet("Range")<<"A1:C1").Exec(Procere("Select"));
2、常用的屬性操作:
★使Excel程序不可見★
ExcelApp.PS("Visible", (Variant)false);
★新建EXCEL文件★
◎ 新建系統模板的工作簿
ExcelApp.PG("workbooks").FN("Add") //默認工作簿
ExcelApp.PG("workbooks").FN("Add", 1) //單工作表
ExcelApp.PG("workbooks").FN("Add", 2) //圖表
ExcelApp.PG("workbooks").FN("Add", 3) //宏表
ExcelApp.PG("workbooks").FN("Add", 4) //國際通用宏表
ExcelApp.PG("workbooks").FN("Add", 5) //與默認的相同
ExcelApp.PG("workbooks").FN("Add", 6) //工作簿且只有一個表
或者使用ExcelApp的Exec方法
Excel.Exec(PropertyGet("Workbooks")).Exec(Procere("Add"));
◎ 新建自己創建的模板的工作簿
ExcelApp.PG("workbooks").FN("Add", "C:\\Temp\\result.xlt");
★打開工作簿★
ExcelApp.PG("workbooks").FN("open", "路徑名.xls")
★保存工作簿★
WorkBook1.FN("Save"); //保存工作簿
WorkBook1.FN("SaveAs", "文件名");//工作簿保存為,路徑注意用"\\"
★退出EXCEL★
ExcelApp.FN ("Quit");
ExcelApp = Unassigned;
或者
ExcelApp.Exec(Procere("Quit"));
★操作工作表★
◎ 選擇選擇工作表中第一個工作表
Workbook1.PG("Sheets", 1).PR("Select");
Sheet1 = Workbook1.PG("ActiveSheet");
◎ 重命名工作表
Sheet1.PS("Name", "Sheet的新名字");
◎ 當前工作簿中的工作表總數
int nSheetCount=Workbook1.PG("Sheets").PG("Count");
★操作行和列★
◎ 獲取當前工作表中有多少行和多少列:
Sheet1.PG("UsedRange").PG("Columns").PG("Count"); //列數
Sheet1.PG("UsedRange").PG("Rows").PG("Count"); //行數
◎ 設置列寬
ExcelApp.PG("Columns", 1).PS("ColumnWidth", 22);
或者
Range = ExcelApp.PG("Cells", 1, 3);
Range.PS("ColumnWidth", 22);
◎ 設置行高
ExcelApp.PG("Rows", 2).PS("RowHeight", 25);
或者
Range = ExcelApp.PG("Cells", 2, 1);
Range.PS("RowHeight", 25);
◎ 在工作表最前面插入一行
Sheet1.PG("Rows", 1).PR("Insert");
◎ 刪除一行
ExcelApp.PG("Rows", 2).PR("Delete"); //將第2行刪除
// 本文作者:ccrun ,如轉載請保證本文檔的完整性,並註明出處。
// 歡迎光臨 C++ Builder 研究 www.ccrun.com
// 摘自:http://www.ccrun.com/doc/go.asp?id=529
★操作單元格★
◎ 設置單元格字體
Sheet1.PG("Cells", 1, 1).PG("Font").PS("Name", "隸書"); //字體
Sheet1.PG("Cells", 2, 3).PG("Font").PS("size", 28); //大小
◎ 設置所選區域字體
Range.PG("Cells").PG("Font").PS("Size", 28);
// 本文轉自 C++Builder研究 - http://www.ccrun.com/article.asp?i=529&d=0iezy5
Range.PG("Cells").PG("Font").PS("Color", RGB(0, 0, 255));
其中參數的設置:
Font Name : "隸書" //字體名稱
Size : 12 //字體大小
Color : RGB(*,*,*) //顏色
Underline : true/false //下劃線
Italic: true/false //斜體
◎ 設置單元格格式為小數百分比
Sheet1.PG("Cells", 1, 1).PS("NumberFormatLocal", "0.00%");
◎ 設定單元格的垂直對齊方式
Range = ExcelApp.PG("Cells", 3, 4);
// 1=靠上 2=居中 3=靠下對齊 4=兩端對齊 5=分散對齊
Range.PS("VerticalAlignment", 2);
◎ 設定單元格的文本為自動換行
Range = ExcelApp.PG("Cells", 3, 4);
Range.PS("WrapText", true);
★單元格的合並★
◎ Range = Sheet1.PG("Range", "A1:A2"); //A1和A2單元格合並
String strRange = "A" + IntToStr(j) + ":" + "C" + IntToStr(j); //比如:A1:C5
Range1=Sheet1.PG("Range", strRange.c_str()); //可以用變數控制單元格合並
Range1.FN("Merge", false);
★讀寫單元格★
◎ 指定單元格賦值
String strValue = "abcdefg";
Sheet1.PG("Cells", 3, 6).PS("Value", strValue.c_str());
Sheet1.PG("Cells", j, 1).PS("Value", "總記錄:" + String(j-6));
或者使用
Excel.Exec(PropertyGet("Cells")<<1<<3).Exec(PropertySet("Value")<<15);
◎ 所選區域單元格賦值
Range.PG("Cells").PS("Value", 10);
◎ 所選區域行賦值
Range.PG("Rows",1).PS("Value", 1234);
◎ 工作表列賦值
Sheet1.PG("Columns",1).PS("Value", 1234);
◎ 讀取取值語句:
String strValue = Sheet1.PG("Cells", 3, 5).PG("Value");