エクセルの学校：全文検索：Hyper Estraier：リンク

Results of 1 - 1 of about 6618 for リンク (0.004 sec.)

[[20080703143105]]: #score: 3107; @digest: b98ff907235af89a05fb40c636d6c190; @id: 38891; @mdate: 2008-07-10T00:16:46Z; @size: 2890; @type: text/plain; #keywords: breaklink (24067), xlexcellinks (21601), ク解 (18133), 除失 (14647), 言on (14010), 公務 (13259), 刷ac (6198), collate (5413), 刷' (5390), 除→ (5054), も→ (4813), 存後 (4191), selectedsheets (3761), 解除 (3677), 力技 (3670), （公 (3572), copies (3229), 技) (3145), 務員 (3061), 文内 (2446), 半の (2342), printout (2257), activewindow (2051), リン (2015), ンク (1979), 刷」 (1962), 前半 (1956), 失敗 (1920), 生時 (1836), activeworkbook (1785), 後半 (1669), 印刷 (1623); 『マクロでリンク解除後の印刷』（公務員）
AAファイルとBBファイルがあって,AAファイルはBBファイルからリンク しています。それで,リンクを解除して,AAファイルのシートを印刷するのに Sub Macro1() ActiveWorkbook.BreakLink Name:= _ ThisWorkbook.Path & "¥BB.xls", Type:= _ xlExcelLinks ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End Sub のようなコードを作りました。そうして,マクロを実行すると,初めはリンクが解除されて,うまく印刷されます。しかし,ファイルを上書き保存後,もう一度マクロを実行して,シートを印刷しようとするとエラーになってしまいます。たぶん,最初にリンクを解除するコードが書かれてあるのに,上書き保存後は, 既にリンクが解除されているので,マクロを実行する対象がなくてエラーになってしまうのだと思います。「リンク解除→印刷」というマクロをボタンに登録し,上書き保存後も同じボタンでエラーが出ることなく印刷できるようにしたいのですが,できますでしょうか? ---- リンク解除何のために???? ---- 乱暴ですがでリンク解除を失敗しても無条件で処理を継続させるとか? On Error Resume Next ActiveWorkbook.BreakLink Name:= _ ThisWorkbook.Path & "¥BB.xls", Type:= xlExcelLinks Err_No = Err.Number On error goto 0 if Err_No <> 0 then msgbox "リンク解除に失敗しました" 等ですか? (力技) ---- ありがとうございます。訳も分からず,下のようなコードを作ってみましたが, 前半の「リンク解除→印刷」はうまくいきましたが後半の「リンク解除失敗しても→印刷」の部分がうまくいきませんでした。 Sub Macro1() ActiveWorkbook.BreakLink Name:= _ ThisWorkbook.Path & "¥BB.xls", Type:= _ xlExcelLinks ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True On Error Resume Next ActiveWorkbook.BreakLink Name:= _ ThisWorkbook.Path & "¥BB.xls", Type:=xlExcelLinks Err_No = Err.Number On Error GoTo 0 If Err_No <> 0 Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If End Sub たぶん,前半の「リンク解除→印刷」と後半の「リンク解除失敗しても→印刷」をIF関数みたいにつなげればうまくいくと思うのですが,つなげ方がよく分からないので教えてください。（公務員） ---- Sub Macro1() 'エラーになっても無視」を宣言 On Error Resume Next 'リンクの解除 ActiveWorkbook.BreakLink Name:= _ ThisWorkbook.Path & "¥BB.xls", Type:=xlExcelLinks 'リンク解除がエラーになったかどうか Err_No = Err.Number 'エラーになっても無視を取り消し」を宣言 On Error GoTo 0 'このIF文はエラーになったらなので不要と思われますね >'If Err_No <> 0 Then 'IF文から外れていれば有無を言わずに印刷 'IF文内ならエラー発生時のみ印刷 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True >'End If End Sub でどうでしょうか? あ、検証はしてません（力技） ---- うまくできました。力技さん,ご丁寧に教えていただき,どうもありがとうございました。（公務員） ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200807/20080703143105.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ