OKWAVEは、
あらゆる悩みや疑問を解決できるQ&Aサービスです

質問時刻＝2024/03/11 22:15、タイトル名＝『vlookupを使ったマクロの書き方』で、質問させて頂き、HohoPapa様にご教示頂いたマクロのコードについて、メールアドレスが入っているファイルのシート名に変更が生じましてコードの変更が必要になりました。 修正箇所は、『Const TblSheet = "職員マスタ"』になります。 色々と修正を加えて見ましたが、エラーが出てしまいマクロの正常稼働で出来ませんでした。 変更点は、シート名＝『職員マスタ』を『employee-20240510』への変更になります。『employee-』は固定文字ですが、『20240510』は現在の日付を指定したいです。 Const TblSheet = "employee-" & Format(Now, "yyyymmdd")と しましたが、エラーがでてしまいます。 お忙しい中、大変恐縮ですが、お手すきの時に対応させたマクロのご教示を頂けましたら大変助かります。 上記1行のマクロのコードのみ、ご教示頂ければ大丈夫です。 今現在まで、ルーチンワークとして便利に使わせて頂いております。 ------以下は現在のマクロのコードです----------------- Option Explicit Const tgSheet = "Sheet1" Const TblBook = "C:\Users\watan\Documents\27_EXCEL教習\TEST\11_2024-課題参画者リスト\スクリプト\職員DB.xlsx" Const TblSheet = "職員マスタ" Const NumCol = 2 '転記先職員番号列番号 Const AddressCol = 4 '転記先メールアドレス列番号 Dim LogFile As String Dim tgBookName As String Sub Mainjob() Dim tgBook As Workbook Dim r As Long Dim HitAddress As String '１つのログファイルに常に新規作成（処理の都度上書き）する。 LogFile = ThisWorkbook.Path & "\" & _ "MentLog.csv" Open LogFile For Output As #2 Close #2 Logput "M0", "", "", "", "転記処理開始", "" '対象ファイル名の組立 tgBookName = _ "C:\Users\watan\Documents\27_EXCEL教習\TEST\11_2024-課題参画者リスト\出力結果\" & _ Format(Now, "YYYY") & _ "参画者リストまとめ_" & _ Format(Now, "YYYYMMDD") & _ ".xlsx" '対象ブックを開く Set tgBook = Workbooks.Open(tgBookName) 'Main処理 r = 1 With tgBook.Sheets(tgSheet) Do r = r + 1 If .Cells(r, NumCol).Value = "" Then Exit Do If IsNumeric(.Cells(r, NumCol).Value) = False Then Logput "M2", Format(r, "0"), _ .Cells(r, NumCol).Value, "", "職員番号が不正", .Cells(r, 1).Value Else HitAddress = GetMailAdress(.Cells(r, NumCol).Value) If HitAddress = "Not Found" Then Logput "M3", Format(r, "0"), _ .Cells(r, NumCol).Value, "", "職員番号が見つからない", .Cells(r, 1).Value ElseIf ((HitAddress = "Null") Or (HitAddress = "")) Then Logput "M4", Format(r, "0"), _ .Cells(r, NumCol).Value, "", "マスターのメールアドレスが空欄", .Cells(r, 1).Value ElseIf .Cells(r, AddressCol).Value <> "" Then If HitAddress <> .Cells(r, AddressCol).Value Then Logput "M5", Format(r, "0"), _ .Cells(r, NumCol).Value, .Cells(r, AddressCol).Value, "既に異なるアドレスが埋まっている" & "," & HitAddress, .Cells(r, 1).Value Else Logput "M6", Format(r, "0"), _ .Cells(r, NumCol).Value, .Cells(r, AddressCol).Value, "既に同じアドレスが埋まっている", .Cells(r, 1).Value End If Else .Cells(r, AddressCol).Value = HitAddress Logput "M1", Format(r, "0"), _ .Cells(r, NumCol).Value, HitAddress, "メールアドレスをセット", .Cells(r, 1).Value End If End If Loop End With '対象ブックを保存して閉じる tgBook.Save tgBook.Close Logput "M9", "", "", "", "転記処理終了", "" End Sub '職員番号を引数にメールアドレスを返す関数 Function GetMailAdress(sNum As Long) As String Dim SQL As String Dim cn As Object Dim rs As Object 'SQL文の実行準備 Set cn = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") cn.Provider = "Microsoft.ACE.OLEDB.12.0" cn.Properties("Extended Properties") = "Excel 12.0;HDR=Yes;IMEX=1" cn.Open TblBook 'SQL文の組立 SQL = "" SQL = SQL & "select [メールアドレス]" & vbCrLf SQL = SQL & "FROM [" & TblSheet & "$A1:Z50000]" & vbCrLf SQL = SQL & "Where [職員番号] = " & sNum & vbCrLf rs.Open SQL, cn 'ヒットする行が無かったら抜ける If rs.EOF = True Then GetMailAdress = "Not Found" Else If IsNull(rs("メールアドレス")) Then GetMailAdress = "Null" Else GetMailAdress = rs("メールアドレス") End If End If '後処理 rs.Close Set rs = Nothing cn.Close Set cn = Nothing End Function

■製品名を記入してください。 【　　DCP-J526N　　　　　　】 ■どのようなことでお困りでしょうか？ 　相談したいこと、トラブルに至った経緯、試したこと、エラーなどを教えてください。 【　　印刷出来なくなりました。print中（Finished pege1)になりますが反応しません。プラリンターのWifi接続はできてます。　　　　　　　　　　　　　　　　　　　　　　】 ■お使いの環境について教えてください。 ・パソコンもしくはスマートフォンのOSは何ですか？ （例）Windows10/8.1/7・MacOS・iOS・Android 【　　Mac os 14.4.1　　　　　　】 ・どのように接続されていますか？ （例）有線LAN・無線LAN・USBケーブル・bluetooth 【　無線LAN　　　　　　　】 ・関連するソフト・アプリがあれば教えてください。 【　　　　　　　　】 ・電話回線の種類は何ですか？ （例）アナログ回線・ISND回線・ひかり回線・IP電話 【　　　ひかり回線　　　　　】 ※OKWAVEより補足：「ブラザー製品」についての質問です。

AccessVBAでCSVファイルへ接続したいのですが 64ビットパソコンの場合は「Provider」は何を設定すればいいのか分からず 困っています。 私の持っているテキストでは32ビットパソコンの場合は 次のコードで接続できます。 このコードのProviderだけ64ビットのものに変更すればいいと思うのですが、いかがでしょうか。 -------------------------------------------------------------------------- Dim CN As ADODB.Connection Dim RS As ADODB.Recordset Dim MyPath As String MyPath = CurrentProject.Path & "\" Set CN = New ADODB.Connection CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ 　　　　 ”Data Source=" & MyPath & ";" & _ "Extended Properties='Text;HDR=NO'" Set RS = CN.Execute("SELECT * FROM test.csv") ------------------------------------------------------------------------------ 教えてください。 宜しくお願い致します。

トラクター等の農機具洗浄の際、家族は水道代の節約のため、川の水を使って高圧洗浄機を使うよう要請してきます。 私は水道水で洗った方が手軽で、撥ね飛ぶ水も我慢でき、ガソリン代や機械の消耗もなくてよいと考えます。 高圧洗浄機は、ときどき不具合発生で万単位の修理代が掛かることがあります。 5分間の簡易洗浄の場合と30分間の徹底洗浄の場合、川の水と水道水の費用的にどちらがお勧めでしょうか？ 農家の方のご意見を期待していますが、それ以外の方からも参考になるご意見があれば伺いたいです。

下記の内容で質問があります。回答をいただけると助かります。よろしくお願いします！ ▼ご利用の製品 ・ご利用の製品タイプ（例：・ノートパソコン・モバイルなど） タブレット ・タブレットのバージョン（例：Android 12・IOS 15.5） ＝＝＝ご記入ください＝＝＝Andoroid11 ・製品名・型番（例：PC-T1295DAS・PC-TAB10F01など） ＝＝＝ご記入くださT1175BASい＝＝＝ ・接続方法（例：有線LAN・・USBケーブル・Bluetooth） ＝＝＝ご記入ください＝＝＝無線LAN ▼お困りごとの詳細、ご使用中の機器の状況や、表示される内容をお書きください。（例：アップデート方法・ストレージの管理方法・設定方法が知りたい・アプリのインストール方法） ≪※表示されている画像やスクリーンショットを添付すると伝わりやす （ADBを無効にしてください）のメッセージが出て アプリ(wowwow）がインストールできない。 　 ※OKWAVEより補足：「NEC 121ware ：タブレット」についての質問です

部活の新しく入ってきた後輩たちに最近なめられてます 練習終わり後片付けもせずすぐ帰ってこちら側から教えると 「まだ慣れてないので！さようなら！」 と返してきました。 顧問はいるのですが忙しいのでめったに練習にはこないです。 どうしたら後輩たちはゆうことを聞くでしょうか？ ちなみに後輩は13人で手が回りきらないです。 （2年は7人、3年生は引退です）

【大至急！！でお願いします】 こんにちは！ Canva無料版を使い、カードを作成しようとしました。 ところが、数度「このテンプレートをカスタマイズする」ボタンを押したあと、次にやろうとしたところ、急に何も表示されなくなってしまいました。（参考まで、画像添付しています） 試しに、違うアカウントに登録しても結果は同じ。 もしかして無料版には回数制限があるのかなと思い、調べてみたけれど、そんな記述も見当たらず・・・・ 友人の誕生日が明日に迫っているため、一刻も早く機能を復活させたいです。 対処法をお教えいただきたく、よろしくおねがい致します。

ＮＥＣＬＡＶＩＥ２３デスクトップのパソコンにはＨＤＭＩの入力端子しかないので、出力用に変換するためのアダプタを購入した。 購入したアダプタが、ＨＤＭＩ入力用の差込口にうまく差し込めず、パソコンの画面をテレビで見られない。 ＮＥＣ専用の変換アダプタがあるのか否かを教えてください。

次のような出来事がありました。聞いてやってください。 [全容] ②学生なのですが、つい最近、僕をどうでもいいようなことで罵ってきます。ヒゲダンが大の推しなのですが、「ヒゲダンいなくなったらミーハー」とか、ただの流行りに乗ってるやつとか、そりゃあ除外したらそうなるよなっていう変な屁理屈を持ち出してまで理詰めてきます。学級委員会とかで言ってやりたいのですが、それじゃ、またこの繰り返しになってしまいます。 ②ひじきを食べると(絶対ではないが、その他の条件と重なって)お腹が痛くなって、自分だって苦しいのに、「被害妄想」とか、「そんなわけない、ただの好き嫌い」とか、本当にそうなのか自分をも疑ってしまいます [いつしかの変様] 上記のように、いつだって理詰めしてくる友達なのですが、昔はそんなではなくて、あるとき、インフルエンザに掛かっていました。その前後くらいから急に性格が変わって、「Aくん(仮名)、どうした？」って聞いても、「どうもしてない」って言って、変な痩せ我慢をしてるような気がしていました。 　そこから半年ほど経って、今は前と打って変わって、授業中にゲームの話をしたり、ほんの前までBくん(仮名、自分と前、仲が良かった友達)と特に中の良かった自分が、少し敬遠されて、AくんとBくんで、なにか変な友情を感じます。決してその関係を断てというわけじゃなく、自分含めAくん、Bくん、3人。イツメンでやっていきたいです。 　僕が悪いのでしょうか。

■製品名を記入してください。 【HL-L2370DN】 ■どのようなことでお困りでしょうか？ 　相談したいこと、トラブルに至った経緯、試したこと、エラーなどを教えてください。 【印刷面に黒い縦の汚れが付くため下記FAQに従いコロナワイヤー・ドラムユニットの清掃を行いましたが、多少改善はしたものの汚れなくなるまでには至っていません。https://faq.brother.co.jp/app/answers/detail/a_id/10254?a_id=13071&p=15&session=YomTkUAq バックカバーを開いて定着ユニットを確認したところ、添付画像のようにローラーに汚れが付着していました。 印刷結果を見る限り、この汚れがそのまま紙に付着しているように見受けられます。 この汚れは清掃不可能でしょうか？また修理となる場合は保証対象になるでしょうか？】 ■お使いの環境について教えてください。 ・パソコンもしくはスマートフォンのOSは何ですか？ （例）Windows10/8.1/7・MacOS・iOS・Android 【Windows10】 ・どのように接続されていますか？ （例）有線LAN・無線LAN・USBケーブル・bluetooth 【無線LAN】 ・関連するソフト・アプリがあれば教えてください。 【特に無し】 ・電話回線の種類は何ですか？ （例）アナログ回線・ISND回線・ひかり回線・IP電話 【ひかり回線】 ※OKWAVEより補足：「ブラザー製品」についての質問です。