Results of 1 - 1 of about 71 for ExecuteExcel4Macro 閉じた｜開いて｜開かず (0.012 sec.)
executeexcel4macro (140), 閉じた (629), 開いて (4904), 開かず (263)
- [[20060301163921]]
- #score: 14119
- @digest: 81d03022e329dea407044d2d91b4d23a
- @id: 20527
- @mdate: 2006-03-02T23:46:11Z
- @size: 2040
- @type: text/plain
- #keywords: anton (14426), 摘多 (7748), 字◆ (7748), 値複 (7576), 多謝 (7371), 謝多 (6812), リプ (2632), 複写 (2429), executeexcel4macro (2389), 謝!! (2206), 摘有 (2063), 名・ (2058), プト (1987), ・シ (1896), mypath (1837), ド素 (1536), トc (1339), 〜b1 (1143), ルc (1134), ファ (1089), workbooks (1033), コマ (916), ァイ (843), ル名 (800), マン (773), ルa1 (728), イル (706), ルb (674), トb (609), ルa (589), xls (576), sheets (544)
- 『セルに行をずらしながら値複写』（anton）
マクロで複数のブックファイル各々の1シートの指定したセルを他の指定したエクセルファイルの指定したシートの指定したセルに行をずらしながら値複写したいのですが出来るでしょうか?近い例があるのですがどうも上手くいきません教えて下さい。 ファイルAのシートaのセルA1〜B1とファイルBのシートbのセルA1〜B1をファイルCのシートcのA1桁とA2桁に分けてそれぞれ値複写するイメージです…Excel2003.XPです ---- Sub test() Workbooks("C.xls").Sheets("c").Range("A1:B1").Value = Workbooks("A.xls").Sheets("a").Range("A1:B1").Value Workbooks("C.xls").Sheets("c").Range("A2:B2").Value = Workbooks("B.xls").Sheets("b").Range("A1:B1").Value End Sub でよろしいですか〜? (G4) ---- ご指摘有難うございます。コマンド素人なんので申し訳ありませんが、頂いたスクリプトをそのまま使わせていただいてファイル名・シートを入れてみたんですが、実行させると「インデックスが有効の範囲内にありません」とエラーが出るんですが、コマンドが抜けてますでしょうかお教え下さい(anton) ---- ブックはすべて開いていますか? 自動で開くのであれば、コードを追加しなくてはいけません。 (G4) ---- 再度のご指摘多謝多謝!!フィル名及びシート名を変更することで実行しました。参考までにスクリプトで使えない文字（ファイル名・シート名）を調べるには何処を見れば良いのでしょう。それとコピー元ファイルを開かずに実行するコマンドがあれば教えて下さい。（anton) ---- ◆ファイルを開かずに実行の場合◆ 同じフォルダにA.xls、B.xls、C.xlsがあるとして、 C.xlsの標準モジュールに貼り付けて下さい。 ---- Sub test2() Dim myPath As String Dim i As Long myPath = "'" & ThisWorkbook.Path & "¥" For i = 1 To 2 Sheets("c").Cells(1, i).Value = ExecuteExcel4Macro(myPath & "[A.xls]a'!R1C" & i) Sheets("c").Cells(2, i).Value = ExecuteExcel4Macro(myPath & "[B.xls]b'!R1C" & i) Next End Sub ---- (G4) ---- ◆ファイル名・シート名に使えない文字◆ このような内容はほとんどヘルプで確認できますので、そちらでお願いします。 (G4) ---- 有難うございます。内容はよく理解できないのですがその通りに出来ました。活用させて頂きます。とても感謝します。（anton)... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/200603/20060301163921.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97056 documents and 608292 words.
訪問者：