Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


33787 / 76734 ←次へ | 前へ→

【48163】Re:開くファイルの制御
質問  tomo  - 07/4/5(木) 17:31 -

引用なし
パスワード
   ▼ウッシ さん:
>こんにちは
>
>指定したワード文書以外が開いていると最後は一緒に閉じてしまっていますので適宜修正
>して下さい。
ありがとうございます。気づいたので修正しました。


主題は解決したのですが,別の問題が発生しました。再度,教えてください。

例えば,開くExcelブック名を間違えてセルに記入した場合,当然,エラーが出るのですが,これを正しく修正し,再度,マクロを実行させると「実行時エラー '462'」が出てしまいます。
一度,ブックを終了してから再び実行すると問題なく流れます。
マイ ドキュメント内で作業しているため,サーバーとのアクセスは関係ないのですが,どういうことなのでしょうか?

一部のコード(Wordに貼付部)ですが,

With objWord.Selection
  .ParagraphFormat.Alignment = wdAlignParagraphLeft
  With .Font
    .Size = 12
    .Name = "MS ゴシック"
  End With
  .PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, _
      Placement:=wdFloatOverText, DisplayAsIcon:=False
  .ShapeRange.RelativeHorizontalPosition = _
    wdRelativeHorizontalPositionMargin
  .ShapeRange.RelativeVerticalPosition = _
    wdRelativeVerticalPositionMargin
  .ShapeRange.ScaleWidth TEXT_SIZE, True 'TEXT_SIZEはセルから取得しています。
  .ShapeRange.ScaleHeight TEXT_SIZE, True
  .ShapeRange.Left = MillimetersToPoints(TEXT_LEFT) 'TEXT_LEFTもセルから取得しています。
      '↑ ここで,止まってしまいます。
  .ShapeRange.Top = MillimetersToPoints(TEXT_TOP) 'TEXT_TOPもセルから取得しています。
  .MoveLeft
End With

よろしくお願いします。(必要でしたら全コード記述します)

1 hits

【48152】開くファイルの制御 tomo 07/4/5(木) 13:18 質問
【48154】Re:開くファイルの制御 ウッシ 07/4/5(木) 13:53 発言
【48161】Re:開くファイルの制御 tomo 07/4/5(木) 16:14 お礼
【48162】Re:開くファイルの制御 ウッシ 07/4/5(木) 16:29 発言
【48163】Re:開くファイルの制御 tomo 07/4/5(木) 17:31 質問
【48164】Re:開くファイルの制御 ウッシ 07/4/5(木) 17:42 発言
【48167】Re:開くファイルの制御 tomo 07/4/5(木) 18:34 お礼
【48175】Re:開くファイルの制御 tomo 07/4/6(金) 14:04 質問
【48176】Re:開くファイルの制御 ウッシ 07/4/6(金) 15:24 発言
【48177】Re:開くファイルの制御 ウッシ 07/4/6(金) 15:42 発言
【48178】Re:開くファイルの制御 tomo 07/4/6(金) 19:18 発言
【48179】Re:開くファイルの制御 ウッシ 07/4/6(金) 20:39 発言
【48221】Re:開くファイルの制御 tomo 07/4/9(月) 9:05 発言
【48222】Re:開くファイルの制御 ウッシ 07/4/9(月) 9:43 発言
【48223】Re:開くファイルの制御 tomo 07/4/9(月) 9:48 お礼
【48235】Re:開くファイルの制御 りん 07/4/9(月) 17:52 発言
【48251】Re:開くファイルの制御 tomo 07/4/10(火) 8:18 お礼

33787 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free