- 締切済み
フォルダにショートカット作成
Excel VBAを利用して、既に存在するフォルダにブックのショートカットを作りたいと思っております。 通常でしたら、 (1)作業中のブックを保存 (2)保存されているフォルダ(A)内からブックのショートカットを作成 (3)目的とするフォルダ(B)へショートカットを移動 という手順になるかと思うのですが、これをマクロで処理したいと思っております。 自分なりに調べてはみましたが、VBA初心者のため上手くいきません。 いい方法がございましたら教えて頂けないでしょうか?よろしくお願いします。
- みんなの回答 (2)
- 専門家の回答
みんなの回答
- puddingeater
- ベストアンサー率77% (28/36)
- puddingeater
- ベストアンサー率77% (28/36)
関連するQ&A
- フォルダのショートカット作成VBA
環境:Excel2002です エクセルブック【×××】で作業後 VBAで フォルダ<aaa>を作りフォルダ<aaa>の中に ブック【bbb】という名前をつけて保存します この時 フォルダ<aaa>のショートカットをマイドキュメントに作りたいのです マイドキュメントの場所が使用するPCによって異なるので マイドキュメントの場所を取得して フォルダ<aaa>のショートカットをマイドキュメントに作る この一連の作業をVBAでやりたいのです お手数をおかけしますがよろしくお願いします
- ベストアンサー
- オフィス系ソフト
- フォルダ内の全てのBookに同じ処理を繰り返す
フォルダ内にエクセルファイルが約3,000個あります。 この全てのBookに同じ処理をしたいのですが、マクロで繰り返す方法がわからないので教えて下さい。 処理をする内容は簡単なもので、マクロで作りました。 ・ 各Bookには1つのシートしか存在せず、シート名は重要ではないので全て「Sheet1」になっています。 ・ 各Bookのデータの配置や表形式は同じです。 ・ レコードの行数がBookによって異なります。 処理の内容をマクロで作るところまではできましたが、知識がないためタイムアウトです。 ご教示宜しくお願い致します。
- ベストアンサー
- Excel(エクセル)
- フォルダ内の全ブックのシート名を変更したいです。
同一フォルダ内に、ファイル名の違うエクセルブックが100個ほどあります。 その100個のそれぞれには、シートが1つ入っています。(シート名は、ブック毎に異なっています) それらのシート名を100個全部、「2013-07」という名前にしたいのですが、マクロで一括処理はできますでしょうか? データが多く、マクロ初心者なので、困っております。。 エクセルは2013を使用しています。 お教えいただければ幸いですm(_ _)m
- ベストアンサー
- オフィス系ソフト
- フォルダの作成とその中への保存
よろしくお願いします。エクセル2010です。 新しいフォルダがなければ作る、あれば作らないようにしたいのです。 そのやりかたをお教えいただけませんでしょうか? やりたいことは以下のようなことです。 まず、対象フォルダを指定します。 その中にこのマクロがあるBOOKのSheet1のA1セルの値でフォルダの作成。 その際に同名のフォルダがある場合は作成せず、ない場合に作成。 その後、今作ったフォルダまたは同名の既存フォルダの中へ、同じA1セルの値でxlsファイルでbookを保存です。 ややこしいですがよろしくお願いいたします。
- 締切済み
- その他MS Office製品
- 「名前を付けて保存」時にあるはずのショートカットフォルダが表示されない
こんにちは。 Windows2000を使っています。 つい昨日辺りから作業中のファイルを名前を付けて保存しようとすると保存先のフォルダ一覧にそこにあるはずのショートカットフォルダのみが表示されなくなりました。 デスクトップ等からそこを見に行くとちゃんとショートカットフォルダは存在しています。 2・3日前までは保存先として表示されていて使えたので、何か自分が変なことをやってしまったんでしょうが見当がつきません。 このショートカットフォルダが使えないと微妙に不便なので、わかりましたらご回答よろしくお願いします。 ちなみにoutlookでは、メールにアイテムを添付する際ショートカットフォルダは表示されているのですが、その中にあるアイテムを添付しようとフォルダをダブルクリックすると「フォルダなので添付できません。」と出てしまいます。(これも以前はフォルダを開いて中のアイテムが見れていました)
- 締切済み
- Windows NT・2000
- エクセルVBA でフォルダーの作成方法
エクセルVBAでフォルダーの有無を確認する。 同じデレクトリ上で同一名のフォルダー、ファイルが存在するなら そのまま次の作業に進み、 デレクトリ、フォルダー、ファイルが存在しない場合は新規に 作成する。 新規に作成するのは MkDir "c:\white\DXF"で可能ですが、有無の判定の方法がわかりません。 初心者ですのでよろしくお願いします。 判定式がないと条件によってはエラーが生じます。
- ベストアンサー
- オフィス系ソフト
- フォルダ内にある複数ブックのシート名の変更
エクセルのVBAについて質問させて下さい。 現在、アクセス2000でクエリをマクロのワークシート変換で 規定のエクセルブック(2000)にエクスポートしています。 項目別なので30以上のブックになっています。 これを毎月の更新で12ヶ月分エクスポートします。 問題なのがクエリ名がシート名になっていますが、このシート名を 月によって変更したいのです。ブックが30以上あるので手作業では 自分1人の作業だとやってしまうのですが、不在時に他の人にやって もらうには無理があるかなと・・・。 イメージとしては、マクロブックのコマンドボタンを押すと そのフォルダにある30以上のブックの一番右にあるシートを マクロブックのセルA1に入力した月に変更し、変更したシート内の 1行目の項目名の長さに合わせてセルの幅を変更し、項目名に色をつけるというイメージです。 今までは2項目くらいだったので手作業でやっていたのですが、 30以上になると手作業ではつらい状況です。 VBAは初心者なので答えをいただけると大変ありがたいです。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 文書ファイルのショートカットをWORDのマクロで作るには
ワードで文書を作成し保存する際、<ドキュメント>フォルダ内に<文書>フォルダーを作って保存しているのでが、文書が未完成のまま保存する場合、文書フォルダーに保存と同時にデスクトップの特定のフォルダー(例えば <やりかけ>フォルダー)にも、その文書ファイルのショートカットを保存したいのです。そうすれば、いつもデスクトップの<やりかけ>フォルダーを覗けば、やりかけの文書ファイルをすぐに開くことができるし、完成すれば、そのショートカットを削除すれだけで済むからです。 ワードのマクロでできるのかな?と思っているのですが、マクロの初心者でやり方がわからずにいます。マクロだけでは出来ないような気もするのですが…。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- VBAでアクティブファイルの場所を検索するマクロはありませんか?
Visual BasicというかエクセルVBAのマクロなのですが アクティブになっているエクセルブックがどの場所に保存されているか分かるマクロって存在しないですかね? できれば Cells(1.1) = ? と?の部分に何かを入れるとA1にC:\~といったような保存場所が表示されるといったマクロが理想です。
- ベストアンサー
- Visual Basic
- 自動で.xlsを閉じて指定フォルダに移動させたい
開いているエクセルファイルが多数あるのですが、今アクティブになっているファイルだけを、上書き保存→閉じる→指定したフォルダに移動までを自動で行なわせたいです。 ・上書き保存はマクロの記憶でできるのですが、閉じるをしてしまうとマクロを終了できない、指定したフォルダに移動はマクロではできなく、教えて下さいませ。ファイルの移動は、名前を付けて保存ではなく、そのファイル自体を移動させたいです。 移動させたいファイルは決まってなくて、その都度変わります。 Sub Macro1() ActiveWorkbook.Save End Sub ・現時点、開いているファイルの保存場所 C:\Documents and Settings\aaa\デスクトップ\作業用 ・移動させたいフォルダ C:\Documents and Settings\aaa\デスクトップ\作業用\保存用
- 締切済み
- Visual Basic
補足
試しに行ってみましたが、序盤部分 ActiveWorkbook.SaveAs Filename:=strBookPath に問題があるようでエラーが出てしまいます。 作業中のブックはもちろんアクティブになっていますし。。。