No.4ベストアンサー
- 回答日時:
VBからのコントロールですが、yochiさんの回答のVBAの
ようにVBから実行します
Private Sub Command1_Click()
Dim objExcel As Excel.Application
Dim objbook As Workbook
Set objExcel = CreateObject("Excel.Application")
Set objbook = objExcel.Workbooks.Open("C:\TEST1.xls")
objbook.Application.DisplayAlerts = False
objbook.SaveAs "C:\TEST1.TXT", xlText
objbook.Close False
objExcel.Quit
Set objbook = Nothing
Set objExcel = Nothing
End Sub
で、C++Builderからです
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <utilcls.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//#include <system.hpp>
//#include <vcl\oleauto.hpp>
void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString sExcel = "Excel.Application";
Variant excel = CreateOleObject(sExcel);
//excel.OlePropertySet("Visible",-1);
Variant book = excel.OlePropertyGet("Workbooks").OleFunction( "Open","C:\\TEST1.xls");
excel.OlePropertyGet("Application").OlePropertySet("DisplayAlerts",0);
book.OleFunction( "SaveAs","C:\\TEST1.txt",-4158);
book.OleFunction( "Close",0);
book = Unassigned;
excel.OleFunction( "Quit" );
excel = Unassigned;
}
//---------------------------------------------------------------------------
エラー処理はしてませんので、ご注意を。
この回答への補足
プログラムまで書いて頂きありがとうございました。
質問なんですが、この回答っていうのはまずVisual Basicで実行してから
Builderで続けて実行するんですか? それともBuilder単独でもできますか?
Builderだけで実行したんですが、
[C++ エラー] sysvari.h(2583): E2451 Undefined symbol 'TAutoArgs'.
[C++ エラー] sysvari.h(2583): E2451 Undefined symbol 'args'.
のように、sysvari.hでエラーがかなり出ました。
難しいプログラムだったので、Formにも何を置いていいのか分かりませんでした。
出来れば教えて頂きたいです。
あと、Test1 - Test2 - Test3・・・のように一気にやるには、変換のところを
ループで回してやれば出来るんですかね?
No.3
- 回答日時:
はじめまして m(_ _)m
>ExcelファイルをWordファイルに変換したいんですが
ExcelならVBAを使用してはいかがですか?
例えば、
*******************************************************************
Option Explicit
Sub Samp()
ActiveWorkbook.SaveAs Filename:="C:\WINDOWS\デスクトップ\Book1.txt", FileFormat _
:=xlText, CreateBackup:=False
End Sub
********************************************************************
上記は、ExcelのBook1の内容をテキスト形式で保存するものです。これだとWordで開く事が出来ます、この他にCSV形式で保存しても同様な事が出来ますがニュアンスが間違っていればごめんなさい f(^_^;
ニュアンスは大丈夫です。あっています。
大変助かりました。ありがとうございました。
VBだけではなくて、VBAもこれから頑張ります。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルでファイルの最終更新...
-
ExcelVBAでデスクトップのPATH...
-
Pivot table で集計されたデー...
-
Excel VBAで作成したマクロをxl...
-
N88 BASICで作成されたEXEのソ...
-
VBAで、強制保存してブックを閉...
-
Excel VBAでほかのアプリケーシ...
-
VBScriptで日本語が変です
-
JSPで作成したページをそのまま...
-
エクセル:マクロ:保存時に連...
-
JScript 中の日本語とエンコー...
-
英語でインストールができない。
-
ASPでファイルを保存するダイア...
-
EclipseでJavaScriptファイルの...
-
javaアプレットでテキストエデ...
-
読み取り専用ファイルを上書き...
-
javascript初心者です。
-
Excel VBA で困っています。
-
Excel2000 保存できない
-
YAHAMA RTXシリーズのコマンド...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルでファイルの最終更新...
-
Excel VBAでほかのアプリケーシ...
-
読み取り専用ファイルを上書き...
-
Excel VBAで作成したマクロをxl...
-
コマンドプロンプトでデスクト...
-
VBAで、強制保存してブックを閉...
-
Pivot table で集計されたデー...
-
VBA メモ帳の上書き保存がしたい
-
エクセルで「名前を付けて保存...
-
vbaでIEの名前を付けて保存(A)...
-
ASPでファイルを保存するダイア...
-
タイトルバーやメニューバーの...
-
VBScriptで日本語が変です
-
【Excel VBA】自動的にバックア...
-
VBAでPDF作成をしたあと、指定...
-
ファイルのダウンロード保存先...
-
エクセル:マクロ:保存時に連...
-
AccessVBAでレポートをPDFで出力
-
ExcelVBAでデスクトップのPATH...
-
EclipseでJavaScriptファイルの...
おすすめ情報