常連

注目の的

社会貢献

質問力

お世話になっております。
SQL Server 2014についてわかりません。

## 経緯
私の会社のAさんは、商品生産記録を在庫一覧のExcelファイルに1ブックで管理しています。それは、「生産記録、商品マスタ、在庫管理表」が1ブックになっていることを意味します。
生産は日々行いますのでExcelファイルはどんどん肥大化していきます。5年ほどで開けなくなるほど重くなったため、ブックをコピーして新しいファイルを作ったそうですが、まもなくして、今では既に開くのが憂鬱なファイルサイズになっているそうです。
これはAさんも困った話ですが、ただ商品の値段や、製品仕様を調べたいだけの人にもとても迷惑な話です。

そこでパソコンに詳しいという理由で、何とかしてほしいという依頼を受けました。
Accessを使って、「生産記録、商品マスタ、在庫管理表」のそれぞれテーブルを分けて簡単なシステムでも作ろうかと考えていました。
しかし、せっかくやるなら、リモートの拠点から閲覧や書き込みをできるようにしてほしいと新たなミッションを言い渡されました。Accessデータベースはあまり複数のPCから更新を行うものじゃないと理解しています。そこで思いついたのが、別のシステムで使っている、SQL Serverを使えないか、ということです。これは別の部署でシステム会社に依頼して作った「システムA」で使っています。
SQL Serverをバックエンドに、Excelブックで入出力を行うシステムを作れないかと考えています。理由は、私がVB・VBAならある程度書けるという労力的な意味を含めたコスト面です。

## 質問
長くなりすみません。
そこでSQL Serverについて調べようかなと思っているのですが、下記が質問になります。

**＜質問１＞**
SQL SERVER（Ver 2014です）のライセンスについてよくわからないのですが、もともと使っている「システムA」で扱う分は取得しているはずなのですが、新たにシステムを作るとなると、新しいユーザもSQL SERVERにExcelで接続することになります。（ユーザはサーバから直接SQL Serverのコンソール画面を開くことはしません。Excelでデータを読み込んで更新するだけです。直接コンソール画面を開くユーザ数は変わりません）この場合でも新たにライセンスを購入する必要があるのでしょうか？

**＜質問２＞**
SQL Server全く初心者ですが、初心者が扱うには無謀でしょうか？
私の知識レベルは、Excel VBAは一通りわかりましてAccessにはADODB接続できます。SQLはOracle Masterブロンズを取得した際に勉強だけした程度です。ストアドプロシージャ？とかはよくわかりませんのでなるべくVBAだけで完結したいです。



ご回答宜しくお願い致します。

SQL Serverについて教えてください。

### 前提・実現したいこと

エクセル2013 VBAでのマウス操作で範囲選択を行いたいです。
（対象はエクセルのセルではなく、例えばデスクトップだったり、IEだったりします）

### 該当のソースコード

```excelvba
Declare PtrSafe Function SetCursorPos Lib "User32" (ByVal x As Long, ByVal y As Long) As Long
Declare PtrSafe Sub mouse_event Lib "User32" ( _
    ByVal dwFlags As Long, _
    Optional ByVal dx As Long = 0, _
    Optional ByVal dy As Long = 0, _
    Optional ByVal dwDate As Long = 0, _
    Optional ByVal dwExtraInfo As Long = 0)
Sub main()
    SetCursorPos 800, 400 '左から800ピクセル、上から400ピクセルの位置にカーソルを移動
    mouse_event 2  '左ボタン押下（範囲選択のクリックのつもり）
    SetCursorPos 1000, 600 '範囲選択のマウス移動のつもり
    mouse_event 4  '左ボタン解放
end Sub
```

### 補足情報

マウスの位置指定、
左クリック押しっぱなし、
マウス位置指定（移動のつもり）、
左クリック離す
の動作を行いたかったのですが、うまくいきません。
範囲選択のapiが見つかりません。
どのように行えば良いでしょうか。

エクセルvba マウス操作による範囲選択のやり方

ExcelVBAでIEを操作しています。
VBAより、あるWebページのボタンをクリックすると、自動で新しいタブが追加されます。
クリックボタンのある元のページのタブもそのまま残っています。

この新しいタブのIEオブジェクトを取得したいのですが、できません。
コードの一部を以下に載せます。
```
    ' 検索ボタンをクリック
    objIE.document.getElementById("btnSearch").Click

    ' 新規タブのIEオブジェクトを取得
    Call getIE("XXX", wkObjIE) '"XXX"はタイトル（固定値）が入ります。wkObjIEはアウトプットです

    （中略）

Public Function getIE(title As String, objIE As InternetExplorer)

    Set sh = CreateObject("Shell.Application")
    
    'ShellWindowから1つずつ取得して処理
    For Each win In sh.Windows
        
        'ドキュメントタイトル取得失敗を無視（処理継続）
        On Error Resume Next
        document_title = ""
        document_title = win.document.title
        On Error GoTo 0
        
        'タイトルバーにfunction引数の"title"が含まれるかチェック
        If InStr(document_title, title) > 0 Then
            Set objIE = win
            Exit For
        End If
    Next
    getIE = 1

End Function
```

具体的には、こちらのサイト「https://www.books-sanseido.co.jp/」 のメニュー「本を探す」にて、検索BOXに「9784295000396」を入力後、検索BOXの隣のボタンをクリックする操作を行い、これにより追加されるタブのオブジェクトを取得しようとしています。

環境は WindowsServer 2012R2、Excel2016、IEのバージョンは11です。
ウォッチウィンドウで上記コードのsh.Windowsを確認しても、元ページタブはあるのですが、新規タブが見つかりません。

一方で、別PCのWindows7の環境では、同一プログラムで問題なく新規タブのIEオブジェクトを取得できます。
Excel、IEのバージョンは上記と同じです。

試しに、デバッグ実行中に手動で元のページのタブを閉じて、新しいタブだけを残した状態にしたのですが、相変わらずsh.Windowsに当該タブが見つかりません。

ネットで調べても情報が見つからず、行き詰まっています。
原因・対応策などを教えていただけますでしょうか。

起動されたIEタブのオブジェクトを取得できない

### 前提・実現したいこと

Excel 1ファイルごとに1レコード(管理している項目は同じ内容・位置なので、必要なセルを1行にまとめて疑似的にレコードっぽくしてます)
この1行だけで良いので、Accessのテーブルに書き込みというか貼付けしたい
イメージしているのはExcelでコピーして、Accessのテーブルで貼り付けする動作

Excelのデータイメージ
Sheet1･･･物件名、号室、契約者名、仲介手数料などを計算・記録　印刷する形でエクセル方眼紙のように作られてます
　　　　　その中から保管しておきたいデータをシートの下に「=○○」で引っ張って疑似的にレコードっぽく

※この動作は、Access側ではなくExcel側から行いたいです※
自分がやるならどんな形でもいいんですが、営業にやってもらおうと考えてるのでボタン1つで動作したい
(Access開いてAccessでボタン押させるのも、営業から問い合わせ来るだろうなって思うほどのスキル具合です)
### 試したこと

ExcelVBA+AccessDBについて調べて、ADODB？でのデータベース操作はやってみました。
フィールドを指定する形であれば、読み書き更新削除は動かすことができます。
ただその後、すぐ見つかるだろうとExcelからAccessへの行コピペを調べてみたところ全然出ず、フィールドを指定するものしか出ませんでした
手動ではすぐできるし、Excelシート→ExcelDBは同じ処理をしている(それもテラテイルで教えてもらいました)ので、
簡単なのかと思ったんですが・・・

### 補足情報（FW/ツールのバージョンなど）
Excel、Accessともに2016

以前質問させてもらい本当に色々と教えていただきました。
今まで難しく考えすぎてたのかなと要らないものを削ぎ落してみると、残ったのはExcelをDBとして使う不安くらいでした。
(毎月20~30、多くても100行かないくらいのレコード追加・変更、計算はExcelで行うのでDBから行うのは抽出のみ、やったとしても足し引きくらい)

追々はデータ自体の精度を高めるためにAccess等で入力フォーム作ったりとか、何か別のアプリケーションに移行したい気持ちはありますが、
自分も営業もスキルが足りていないので、最低限のデータの保管・抽出について意識付けをまずやりたいと思っています。

引き続き自分でも探してみます。何卒よろしくお願いいたします。


###追記
```ここに言語を入力
'ExcelよりAccessDBへレコード追加・書き込み
Sub addRecords()

Dim strFileName As String
strFileName = "test2.accdb"
 
Dim adoCn As Object 'ADOコネクションオブジェクト
Set adoCn = CreateObject("ADODB.Connection") 'ADOコネクションオブジェクトを作成
adoCn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\" & strFileName & ";" 'Accessファイルに接続

Dim adoRs As Object 'ADOレコードセットオブジェクト
Set adoRs = CreateObject("ADODB.Recordset") 'ADOレコードセットオブジェクトを作成
 

'***** データを登録 *****


Dim i As Long
Dim rng As Range
 

'・・・ レコードセットrsを開く処理（略）
adoRs.Open "sheet1", adoCn, adOpenKeyset


Set rng = Range("A1", "T2") '疑似レコードの範囲（1行目項目名、2行目値）

adoRs.AddNew
For i = 1 To rng.Columns.Count
    adoRs.Fields(rng.Cells(1, i).Value).Value = rng.Cells(2, i).Value
Next
adoRs.Update
 
'***** データベース終了処理 *****
adoRs.Close 'レコードセットのクローズ
adoCn.Close 'コネクションのクローズ
 
Set adoRs = Nothing
Set adoCn = Nothing  'オブジェクトの破棄
 
End Sub
```

試しに作った分をちょっと加工してみましたが、Forの後の「adoRs.Fields~」の部分でエラーが出ます。
実行エラー3265 要求された名前、または序数に対応する項目がコレクションで見つかりません
そもそもレコードセットを開く処理あたりも不安ですが・・・

ExcelVBA　「フィールド指定せずに行で」Accessのテーブルへ書き込みしたい

### エクセルで新旧対照表を作成する

エクセルシートで、新旧対照表を作成しています。
下記図のように、旧と新を比較したときに新しく追加した文字はフォント変更、旧から削除された文字は取消し、変更がない文字はそのままという形で、新旧対照表を作成したいと考えています。

![イメージ説明](3fe8da690a416c8de4514d8e33a80094.jpeg)

エクセルにはWordのように変更履歴を残して、新旧対照表が作成できる機能がないため、質問させていただいています。マクロでできると考えているのですが、何かアイディアがあればよろしくお願いいたします。