![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67b6d)
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_15.png?e8efa67b6d)
現在、既存のエクセルファイルから、
新規エクセルファイルにデータを移すプログラムを作成しています。
CreateObjectを使ってエクセルを開いた後、
xlbook(1).Sheets("sheet1").Cells(1, 1).Value =
xlbook(2).Sheets("sheet1").Cells(1, 1).Value
Set xlbook(1) = Nothing
Set xlbook(2) = Nothing
以上の構文でxlbook(2)からxlbook(1)に値は代入出来るのですが、
この際にエクセルの書式が皆「標準」になってしまい困っています。
xlbook(2)には、表示形式が「文字列」や「ユーザー定義」に設定されたセルが沢山あり、
そのままの表示形式で移すプログラムを作成したいのですが、良くわかりません。
確か、Valueを何かに書き換えたような記憶があるのですが・・・。
皆さんのご教授、宜しくお願い致します。
No.1ベストアンサー
- 回答日時:
表示形式だけなら
xlbook(1).Sheets("sheet1").Cells(1, 1).Value =
xlbook(2).Sheets("sheet1").Cells(1, 1).Value
xlbook(1).Sheets("sheet1").Cells(1, 1).NumberFormat =
xlbook(2).Sheets("sheet1").Cells(1, 1).NumberFormat
とか、、、
全部ならコピーしちゃうのも。
xlbook(2).Sheets("sheet1").Cells(1, 1).Copy Destination:= _
xlbook(1).Sheets("sheet1").Cells(1, 1)
VBAしか知らないのでVBで動くか解りませんけど。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
EXCEL VBA 文中の書式ごと複写するには
Visual Basic(VBA)
-
VBAでシート書式の自動変換を作動させない方法
Excel(エクセル)
-
エクセルへのデータの貼付時に書式が反映されない!
Visual Basic(VBA)
-
-
4
VBA 書式設定を保持したままセル内の文字を追記
Excel(エクセル)
-
5
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
6
VBAで転記すると元のシートの条件付き書式が消えてしまいます。
Excel(エクセル)
-
7
Excel2000/VBA:値と書式のみ貼り付けたい。
Excel(エクセル)
-
8
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
9
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
10
Excelで数値→文字列変換で指数表示になったものをいっぺんに直したい
Excel(エクセル)
-
11
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
12
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
13
Excelでセル参照したとき、書式も一緒に持ってくるには?
Windows Vista・XP
-
14
ExcelのVBAでGoToの代わりに…
Excel(エクセル)
-
15
EXCELで変数をペーストしたい
その他(プログラミング・Web制作)
-
16
VBA 数値を文字列として貼付したい
Excel(エクセル)
-
17
フォントの大きさ
Visual Basic(VBA)
-
18
【VBAユーザーフォームで閉じるボタンを表示したくない】
Visual Basic(VBA)
-
19
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
20
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのIF関数がうまくいき...
-
Excel VBA For Each Next構文...
-
エクセルの表示形式を保ったま...
-
excelのマクロでrangeの選択が...
-
VBA:値をシート間で転記する方法
-
EXCELで2つの数値のうち大きい...
-
エクセルで二つの数字の小さい...
-
PowerPointで表の1つの列だけ...
-
Excelで隣のセルと同じ内容に列...
-
エクセルのオートフィルタで最...
-
エクセルでオートフィルタのボ...
-
エクセルで最初のスペースまで...
-
エクセル 文字数 多い順 並...
-
エクセルで時刻(8:00~20:00)...
-
SUMIFとCOUNTIFを合わせたよう...
-
2つのエクセルのデータを同じよ...
-
Excel関数:「0」を除いた標準...
-
Excelで半角の文字を含むセルを...
-
エクセルで、2種類のデータを...
-
エクセル(勝手に太字になる)
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
excelのマクロでrangeの選択が...
-
エクセルの表示形式を保ったま...
-
Excel VBA For Each Next構文...
-
Excel2000 VBA ダブルクリック...
-
エクセル 1つのセル毎に入力...
-
EXCELのマクロで一覧表に...
-
エクセルで別シートにある各々...
-
Excel VBAのComboboxのRemoveItem
-
Excelのデータベース活用...
-
Gメールの内容をスプレッドシ...
-
エクセルで項目抽出
-
vbaにて並べ替えしたい。
-
EXCEL(エクセル)で0.001以下...
-
EXCEL 行内のデータを2行に分け...
-
【ExcelVBA】A列に値のある行を...
-
VLOOKUPのような操作ができるマ...
-
エクセルでスケジュール管理
-
ISERROR関数
-
EXCELで2つの数値のうち大きい...
-
Excelで隣のセルと同じ内容に列...
おすすめ情報