- ベストアンサー
Excel-VBAで、Importをする方法
VBAで、以下の関数を使いたいのですが、 Directory.GetCurrentDirectory() これを使う場合、「System.IO」をImportする必要があると思うんですが、Sheet1、ThisWorkBook,Module1などのコードの一番最初の行に Import System.IOとやったのですが、 「プロシージャの外では無効です」といった コンパイルエラーがでます。 どのようなことなのでしょうか＞＜
- Haule
- お礼率52% (125/240)
- Visual Basic
- 回答数2
- ありがとう数1
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (1)
- hana-hana3
- ベストアンサー率31% (4940/15541)
関連するQ&A
- Excel→Access VBAによるインポート
1つのExcelファイルの複数のデータシートをAccess2000にインポートしたい。 【説明】 data.xlsという名前のExcel2000で作成したファイルがあり、その中に同じ書式(列)を 持ったSheetが20枚ほどあります。 それらのデータをAccess2000にインポートしたいのですが、 1.作業は毎月発生する。 2.ほかのユーザも出来るようにする。 などの理由から、マクロかVBAを使って自動化できればと考えています。 ぽちっとボタンを押すと、data.xlsのすべてのシートからデータをインポートし、 それぞれのSheet名がついたテーブルに格納されるというのが理想です。 フィールド名は固定ですので、あらかじめテーブルを作っておくことは出来ます。 Excelの各シートの上部数行は見出しやら説明文が書いてありますので、 インポートの際にその部分の行(5行分)を削除することが必要です。 当方VBAの知識はほぼ皆無ですので、やんわりご教示頂ければ幸いです。 よろしくお願いいたします。 (次回ネットに入るのは15日以降です)
- ベストアンサー
- オフィス系ソフト
- 【EXCEL VBA】Visual Basic Editorについて
お世話になります。 EXCELで「Visual Basic Editor」を開くと、 左側に下記が表示されます。 Microsoft Excel Objects > Sheet1、Sheet2、Sheet3、ThisWorkBook フォーム > UserForm1 標準モジュール > Module1 クラス モジュール > Class1 Sheet1やUserForm1、Module1、Class1にそれぞれコードを 入力できますが、違い、使い分けについて教えてほしいです。 どれにコードを書いていけばいいか分からず困っています。 よろしくお願いします。
- 締切済み
- オフィス系ソフト
- Excel VBAでのコードの書き分け方
Excel VBAについてご質問します。 プロジェクトの項目を見ると、 Sheet1 ThisWorkbook 標準モジュール などさまざまあると思います。 これらに対して、どこにコードを書いていくべきなのかがわかりません。 例えば、Sheet1にボタンを配置して、それがクリックされたときの動作についてはSheet1に書けばいいのだと思います。 ですが、いろんなシートのコード、フォームのコードなどから呼び出される関数はThisWorkbookか標準モジュールのどちらに書けばいいのか悩んでいます。 それ以外のケースも含めて、一般的にこういう風に使い分けをするというのがありましたら、ぜひ教えてください。 よろしくお願いいたします。
- ベストアンサー
- その他（プログラミング・開発）
- C++CLI GetCurrentDirector
画像ファイルをPictureBoxに読み込みたいのですが、うまくいきません。 String^ CurrentDirectory = System::IO::Directory::GetCurrentDirectory() + "/picture1.png"; pictureBox1->Image = Image::FromFile(CurrentDirectory); としているのですが、うまく画像ファイルを読み込めません。 MessagaBoxでSystem::IO::Directory::GetCurrentDirectory()の部分を表示してみると、 区切り記号が￥マークが一つでした。 System::IO::Directory::GetCurrentDirectory()の部分を文字列で直接入力すると、うまく動作します。 ￥マークが影響している様に思うのですが、対処の仕方がわかりません。 アドバイスよろしくお願いいたします。
- ベストアンサー
- C・C++・C#
- 【Excel VBA】ThisWorkbook モジュールのマクロ
Excel2003を使用しています。 39枚のシートから成るBook1のThisWorkbook モジュールに、C列に“○月計”と入力されたら、その行のE列、F列、G列へ数式を入力するコードを書いています。 現在は、それぞれのシート(39枚のシートのうち3枚を除く36枚)のC列最終行から2行下のセルへ“○月計”と手入力していますが、マクロで“○月計”と入力されるようにすれば、ThisWorkbook モジュールに書いているコードも実行されて、数式の入力までマクロで処理できるのかな？と思い、試しに、36枚それぞれシートのC列最終行から2行下のセルへ“○月計”と入力されるようコードを書いてみました。 …が、そうではないのか、それぞれのシートのC列最終行から2行下のセルへ“○月計”と入力されるものの、E列、F列、G列へ数式は入力されません。 せっかくなので、できることなら数式の入力までマクロで処理したいのですが、どのようにしたらThisWorkbook モジュールに書いているコードまで実行されるのでしょうか？ よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Setステートメントをまとめて記述する方法 （エクセル2000VBA）
お世話になります。 Setステートメントで以下のように書いて、シート名を省略して使っています。 Set a = ThisWorkbook.Worksheets("い") Set b = ThisWorkbook.Worksheets("ろ") Set c = ThisWorkbook.Worksheets("は") これをプロシージャ毎に書くとコードが長くなるので、先頭かどこかに1回書くだけで、全てのプロシージャで使えるようにしたいのですがどうしたら良いでしょうか？ このようなプロシージャを実行したいのですが、 Private Sub CommandButton1_Click() a.Range("A2").Value = "データ1" b.Range("B4").Value = "データ2" c.Range("C9").Value = "データ3" End Sub （他にもコマンドボタンやチェックボックス用のプロシージャがあります） Setステートメントだけを先頭に書くと、 「プロシージャの外では無効です」というエラーが出ましたので、 Public Sub hensuu() Set a = ThisWorkbook.Worksheets("い") Set b = ThisWorkbook.Worksheets("ろ") Set c = ThisWorkbook.Worksheets("は") End Sub のようにしたら、「実行時エラー"424"：オブジェクトが必要です」というエラーが出てしまいました。 どのようにしたらエラーが出ず正しく動くようになりますでしょうか？よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルVBAコピーしたセルを順番に張り付ける方法
おはようございます。 for文の処理方法がわからないので質問します。 やりたいこと 例・sheet2・sheet2・sheet4・・・と A～B列のセルに文字が有る場合 B列のセルに文字が有れば その行全体をコピーして 【貼り付け】シートに張り付けたいのですが 私の考えたコードだと コピーまではうまくできるのですが 【貼り付け】シートに行全体を張り付ける際 行を上書きされてしまいます。 （sheet2の行を張り付けたら 次にsheet3の行を貼り付けシートに上書きしてしまう） このような上書きをされずに すでに【貼り付け】シートにコピーされたものが有る場合 一つ下の行に貼り付けって出来ないでしょうか？ コードを下記に記載します。 すいませんがコードを書いて頂けると助かります。 宜しくお願い致します。 追記：【貼り付け】シートは一番左端にあります。 Sub test() Dim b As Variant Dim i As Long Dim io As Integer Const AAA As String = "" Set b = Worksheets("貼り付け") For i = 1 To 100 For io = 2 To ThisWorkbook.Worksheets.Count If WorksheetFunction.CountIf(Worksheets(io).Rows(i), "") > 0 Then Worksheets(io).Rows(i).Copy b.Rows(i).Offset(1, 0).PasteSpecial (xlPasteAll)’ここの貼り付け方が間違ってますよね・・・ End If Next Next End Sub
- ベストアンサー
- Excel（エクセル）
- import について
最近JAVAの勉強を始めたばかりの超初心者です。 専門用語（クラス、オブジェクト、メソッド等）に四苦八苦していますが、何とか頑張っています。 で、質問の件なのですが以下をコンパイル出来ません。 //printer.java public class printer { public void print() { System.out.println("hello from java"); } } //app.java import printer; public class app { public static void main (String[] args) { (new printer()).print(); } } printer.java → printer.class のコンパイルは出来ますが app.java をコンパイルしようとすると、以下のエラーが出ます ~$ javac app.java app.java:1: '.' がありません。 import printer; ^ app.java:1: ';' がありません。 import printer; ^ エラー 2 個 printer.javaとapp.javaとprinter.classはすべてカレントディレクトリに入っています。 ただ、app.javaのファイルでimportの行を削除するとキチンとコンパイル実行できてしまいます。 これがなぜか分からない（自分はimportあたりが怪しいと思う）のでタイトルを「importについて」としました。 どなたか原因分かる方いらっしゃいましたら、ご教示よろしくお願いします。
- ベストアンサー
- Java
- (Excel VBA) セルを参照してオートシェイプの形を変える方法
(Excel VBA) セルを参照してオートシェイプの形を変える方法 Chartのように、セルを参照して動的に変わる図面を作ろうとしています。 シートのイベントプロシージャや、適当なセルに入れた関数の再計算で、 データセルの変更を検知すれば、実装は可能です。 ただ、シートから切り離せないのが気持ち悪く、ずっと考えています・・・ なにか、よい方法はないでしょうか？
- ベストアンサー
- Visual Basic
- Excel-VBA フォルダの日時を取得・設定
目的は、Excel-VBAでフォルダのタイムスタンプを「取得・設定」したいのですが、 非力にてクマロの書き方が分かりません。 何方かご教授よろしくお願いいたします。 下記はサンプルコードを探していて、これだと目に留まったのですが、 Excel-VBAマクロで実行するコードに書き直す事ができませんでした。 '--------------------------------------------- 'VB.NET フォルダのタイムスタンプ取得・設定(6個)-(SNo.032) 'http://hanatyan.sakura.ne.jp/dotnet/index.html '--------------------------------------------- 'Sample1.フォルダの作成日時を取得する Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim dt As DateTime dt = System.IO.Directory.GetCreationTime("c:test\") Debug.WriteLine(dt) End Sub '--------------------------------------------- 'Sample4.フォルダの作成日時を設定する Private Sub Button4_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button4.Click 'Directory.SetCreationTime メソッド System.IO.Directory.SetCreationTime("c:test\", DateTime.Now) End Sub '--------------------------------------------- 以上
- ベストアンサー
- Visual Basic
お礼
なるほど、お二人様ありがとうございました。 できました！