• 締切済み

エクセルでリンク元の名前ってどうやって取得するの??

こんにちは。 いくつかのファイルでそれぞれ違うファイルとリンクしているのですが マクロを使って同じものとリンクさせたいのです。 ActiveWorkbook.ChangeLink Name:="設H14年5月27日.xls",NewName:="設H14年5月27日.xls", Type:=xlExcelLinks 最初の"設H14年5月27日.xls"を固定では無くマクロ上で取得し実行させたいのですが何かいい方法はないでしょうか?? 宜しくお願い致します。

みんなの回答

回答No.1

LinkSourcesメソッドのことですか？ ActiveWorkbook.LinkSources(xlExcelLinks)

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • 名前の取得のマクロ

    マクロを使って、ファイルの保存をしようと考えています。 CSVファイルをコピーして、Excelファイルに貼り付けて、名前を付けて保存する。 という流れの処理を考えています。 そこで、CSVファイルの名前を取得して、その名前を Excelファイルの名前にしたいのですが、上手くいきません。 Dim filname As String Application.FindFile filname = ActiveWorkbook.Name Namezu = ActiveWorkbook.Name Cells.Select Selection.Copy Windows("000.xls").Activate Sheets("測定データ").Select ActiveSheet.Paste '名前を付けて保存 　　ActiveWorkbook.SaveAs Filename:= _ "C:\新しいフォルダ\filname.xls", FileFormat:=xlNormal

  • ファイル名のみを取得するには？

    Sub 取得() MsgBox ActiveWorkbook.Name End Sub を実行すると 「エクセル.xls」 と取得されますが 拡張子を除いたファイル名だけを取得するにはどうすればいいでしょうか？ 「エクセル」だけを取得したいです。 よろしくお願いします。

  • VBAを利用して、呼び出し元マクロのフルパスを取得

    現在、エクセルマクロの勉強をしているのですが、ご質問があります。 早速ですが、[マクロA]から[マクロB]を呼び出す時、[マクロA]のフルパスを[マクロB]から取得する事はできるのでしょうか。 [マクロA]のファイル名に関しては、"AAA_111.xls"だったり"AAA_222.xls"だったりします。 あいまい検索で実行中のブックの名前を取得し、そのファイル名を元にフルパスは分かるものでしょうか。 もしくは、効率の良い方法がありましたら、ご教授下さい。

  • 【マクロ】エクセル　複数のsheet　ファイル分け

    いつもお世話になります。 エクセル2003で、下記記述のマクロにて、 一つのファイルにまとまった３つのsheetを個別の ファイルにするよう、使用してました。 エクセル2013でもこのマクロは利用できるのですが、 xlsでなく、xlsxで作成されてしまうため、 どのようにこのマクロを書き変えると、xlsで実行される ようになりますでしょうか。 この記述以外でも問題ございません。 どうか、どなたかお知恵を拝借できると幸いです。 マクロ－－－－－－－－－－－－－－－－－－－－－－－ sub macro1() dim s as worksheet for each s in worksheets s.copy activeworkbook.saveas s.name activeworkbook.close false next end sub －－－－－－－－－－－－－－－－－－－－－－－－－－

  • エクセルのVBAについて

    エクセルのVBAについて教えて下さい。 エクセルのVBAでプログラムを組んでいるのですが、一つわからないことがあるのです。 マクロが実行(オープン)されるファイル名（ファイルパス）をVBAで取得するためにはどうすればいいでしょうか？ たとえば、マクロが実行されるファイルがC:\テスト.xlsならば "C:\テスト.xls"を取得したいと考えています。 どなたかご教授お願い致します。 宜しくお願い致します。

  • Excelでのリンク付けについて

    Excelで「書類」というフォルダにA.xlsとデータフォルダがあります。データフォルダの中にB.xlsというファイルがあります。 そこで、マクロでB.xlsファイルのセルA1にA.xlsファイルのセルB2のデータをリンクするとき絶対パスではやりたくないのですが、どうすればいいかわからないので教えてください。 よろしくおねがいします。

  • ■　エクセルマクロについてです。初級？

    エクセルのマクロでデスクトップにあるエクセルファイルを開くにはどうしたらいいのでしょうか？ 現在は、エクセルファイルＡ.xls Ｂ.xlsという２つを開いていて、マクロを実行することができるのですが、これをＡ.xlsだけ開いている上体で、実行したいのです。 なので、デスクトップに置いてあるＢ．xlsファイルを開くコマンド？というか、関数が知りたいのですが、どうしたらいいのでしょうか？ 現在はこのような感じになっております。 Sub Macro2() ' ' Macro2 Macro ' マクロ記録日 : 2008/9/10 ユーザー名 : ' ' ActiveCell.FormulaR1C1 = "12345" Range("G17").Select ActiveCell.FormulaR1C1 = "129876" Range("G18").Select Windows("Ｂ.xls").Activate Range("N16").Select ActiveCell.FormulaR1C1 = "8/4/2008" Range("N17").Select ActiveWorkbook.Save Range("O16").Select ActiveWorkbook.Save ActiveWindow.Close End Sub

  • EXCELマクロでブック内のリンク状態を取得する方法

    ブックが外部参照していると、取込時にエラーになってしまうソフトを使っています。 事前にEXCELマクロでブック内のリンクの状態の取得することで、エラーを回避できればと思っています。 外部参照、リモート参照ともに更新せずにブックを開くのは下記の方法でできそうなのですが、そこから先の方法が解らず困っています。 Workbooks.Open Filename:="C:\My Documents\リンク元.xls",UpdateLinks:=0 =[リンク先.xls]Sheet1!$A$1+[リンク先.xls]Sheet1!$A$2 条件１：このリンク先は「パス」も「ファイル名」も変動します。 条件２：無条件で値貼り付けはできません。

  • VBA　アクティブなセルのシート名を取得したい

    エクセル2010使用です。 VBAで、アクティブなセルのあるシート名を取得する方法を教えてください。 　マクロ.xls　（マクロシートA1）　←今回のマクロを書き込んだファイル 　参照.xls　（参照シートA1） 　入力.xls　（入力シートF3） この3つのエクセルファイルを開きます。 （　）内はそれぞれの前面にあるシート名と選択されたセルです。 入力シートのF3にカーソルをおいて下記マクロを実行すると 　　MsgBox ActiveSheet.Name & ActiveCell.Address 「マクロシート　F3」と返されます・・・ ほしい結果は「入力シート　F3」なんです。 このような場合にアクティブセルのあるシート名を取得する方法があれば教えてください。 よろしくお願いいたします。

  • エクセル　マクロについて

    エクセルのマクロについて教えてください。 下記のようなマクロを実行した場合 どのような条件でフォルダ内のファイルを オープンしていくのでしょうか。 ファイルの名前や更新時間などでしょうか？ また、名前や更新時間順でファイルを開いていくように するにはどうしたらよろしいでしょうか。 ご回答よろしくお願い致します。 以下マクロ 'オブジェクトを設定する Set ファイルシステム = CreateObject("Scripting.FileSystemObject") '読み込むファイルを1個指定する あるブック = Application.GetOpenFilename("Excelファイル(*.xls),*.xls") '親フォルダーを取得する Set 親フォルダー = ファイルシステム.GetFile(あるブック).ParentFolder '親フォルダー内の全ファイルに以下の操作をする For Each ファイル In 親フォルダー.Files 'ファイルを開く Workbooks.Open ファイル.Path 'ブック名を記憶する ブック名 = ActiveWorkbook.Name '開いたファイルの伝票(NO)のシートを「全データ」シートの後ろにコピーする ActiveWorkbook.Worksheets("伝票(NO)").Copy After:=ThisWorkbook.Worksheets("全データ") '開いたファイルを閉じる Workbooks(ブック名).Close Next 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　以上

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する