常連

注目の的

拍手喝采

自己紹介

timestamp形式のデータから時間の要素を抽出し、条件分岐の処理を行おうとしています。
しかし、下記のように実行するとif文でエラーが出ます。

エラーメッセージは、str型にはhourの処理ができないよと言うことだと理解しています。

そのため、問題のaについて型を確認してみたのですが、問題なくTimestamp型でした。
なぜaがstr型で認識されているのかが理解できません。

何か見落としていることがあるのでしょうか。

よろしくお願い申し上げます。


```ここに言語を入力
a = df.iloc[2, 2]
if a.hour = 1: ←ここでエラーが発生
  >>>以降の処理

エラーメッセージ
>> AttributeError: 'str' object has no attribute 'hour'
```

```
print(type(a))
#<class 'pandas._libs.tslibs.timestamps.Timestamp'>
```

python データ形式　timestamp

拡張子xlsmファイルを
エクスプローラーのプレビュー表示機能を利用することはできないでしょうか？
できればレジストリ編集はしたくないです、、、

xlsxなどはできるので、できないことはないと思うのですが。

方法をご存知の方、ご教示ください。

エクスプローラーのプレビュー表示

###前提・実現したいこと

CSVファイルを読み込んで内容をDataGridViewに表示したい。
その際、CSVファイルの文字コードを判別して読み込むことで文字化けを防止したい。

最終的に実現したいことは上記のことなのですが、
事前検証しているときにわからない現象が発生しました。


###発生している問題・エラーメッセージ

メモ帳を使って、2つの文字コード（ANCI(Shift_JIS)とUTF-8）のファイルを作成しました。

[CSVファイルの内容]
1,2
あ,い


以下の4パターンでTextFieldParserメソッドにてエンコーディングを指定して
CSVファイルを読み込んだところ以下の結果が得られました。

1 ファイルの文字コード：ANCI    エンコーディング：Shift_JIS  ⇒  文字化けなし
2 ファイルの文字コード：ANCI    エンコーディング：UTF-8      ⇒  文字化けする（2行目の"あ,い"が文字化け）
3 ファイルの文字コード：UTF-8   エンコーディング：Shift_JIS  ⇒  文字化けなし
4 ファイルの文字コード：UTF-8   エンコーディング：UTF-8      ⇒  文字化けなし

2については文字コードとエンコーディングが違うので文字化けすること想定どおりです。
ところが3については文字コードとエンコーディングが違うのに文字化けしません。
なぜ、文字化けしないのか教えていただけませんか？




###該当のソースコード
        

```ここに言語を入力
     //DataGricViewにCSVから読み込んだ内容を表示
        private void button1_Click(object sender, EventArgs e)
        {
             //ANCIかUTF-8で保存したCSVファイルを指定
       dataGridView1.DataSource = ImportCSV("csv.txt");
        }

     /// <summary>
        /// ファイル取込
        /// </summary>
        /// <param name="filename">ファイルパス</param>
        private DataTable ImportCSV(string filename)
        {
            //TextFieldParserメソッドでエンコーディング（Shift_JISかUTF-8）を指定
       using (var parser = new TextFieldParser(filename, System.Text.Encoding.GetEncoding("Shift_JIS")))
            {

                var dt = new DataTable();

                parser.TextFieldType = FieldType.Delimited;
                parser.SetDelimiters(",");
                parser.HasFieldsEnclosedInQuotes = true;
   
                //DataTableに値をセット（処理は省略）
                return dt;
            }
        }
```


###補足情報(言語/FW/ツール等のバージョンなど)
Visual Studio 2015
.NET Framework4

C#　CSVファイルの読み込み　文字化けしないのはなぜ

### 前提・実現したいこと

現在複数の社内システム（WEBアプリケーション）の運用開発を10人程のチームでおこなっております。
FTPでの開発を行ってますが、開発用のサーバーと本番サーバーをAWSに移行するにあたりGitを利用してのチーム開発へ変更したくどのような構成にするべきか教えて頂きたいです。

現在の開発の流れとしては、
1.共有ファイル用のローカルサーバーにあるソースをそれぞれが編集
2.共有ファイルをFTPでテスト用のローカルサーバーにアップロード
3.テストサイト上でデバッグなどを行う
4.問題なければGMOの専用サーバー上から変更ファイルをダウンロードし差分を確認してから、
5.専用サーバー上にFTPでアップロードし本番公開を行う。

という風になってます。

また、AWSは開発用と本番用で2つ契約してます。


### 試したこと

Gitについてはまるっきりの初心者で経験もありませんが、Git利用にあたり一通り調べてgitやgithubの基本的な概念なら把握できているかと思います。
各自のローカルリポジトリからリモートリポジトリへpushしてそれを本番公開という流れはなんとなくわかるのですが、
おそらく開発用と本番用とサーバーがわかれているので、githubにローカルからpushしその内容を開発用のサーバーにデプロイ？する。
問題なければ本番にデプロイという流れなのかなと考えています。

githubは使用しないでサーバー上にリモートリポジトリを作るやり方などもあるのでしょうが、どの方法が一般的なのか、またそれぞれの方法にどのようなメリットデメリットがあるのかがわかりませんでした。

まるっきり見当違いのことを言っていたら申し訳ないです。
よろしくお願いします。

Gitでのチーム開発時の構成

SQL Serverにてログテーブルを作成したいと考えています。
環境がすこしややこしいので、先に環境や作成条件を記述します。

---

既存のシステム、DBがありそのシステム自体ログは一応落ちます。
しかし、既存システムのログは不必要なログも落ちてしまいます。また、最大でも180日しかログを保持しません。
そこで今回、新しくテーブルを作成し、必要なログだけを残しつつ、最低でも3年間分のログを保持するテーブルを作成しようと思っています。

必要なログだけを残した場合、1年間で約30~40万件、3年間で90~120万件のデータになります。
テーブルの構造は
.smalint
.smalint
.datetime
.smalint
.smalint
.nvarchar(25)
.nvarchar(3)
.smalint
.nvarchar(25)
.smalint
.nvarchar(25)
.smalint
.nvarchar(41)
.nvarchar(17)
.nvarchar(3)　　です。

---

ここで分からないことがありあます。
・約120万件のデータを1つのテーブルにしてパフォーマンスに支障が出たりはしないのか？
ということです。
もし、全く問題ないのであれば、5年間くらいはログを保持していたいと考えています。
DBを扱うのはほぼ初心者です。拙い質問でスミマセン。よろしくお願いします。

SQL Serverで約120万件のログテーブルを作成したいのですが...

### 前提・実現したいこと

XPSファイルを印刷ダイアログを表示した後に
印刷するプログラムを作成しています。
下図の印刷設定がうまく働かず横向きの内容が
縦向きの用紙に印刷されてしまうため、はみ出て
印刷されてしまいます。
印刷プレビューにチェックを入れてもプレビューが
表示されません。

印刷設定どおりに印刷するにはどうすればいいでしょうか。
ご教授よろしくお願いいたします。
![印刷設定](53c187e978c6cd4b15c563899e06e0fc.png)

### 発生している問題・エラーメッセージ

印刷設定どおりに印刷がされない。
印刷プレビューにチェックを入れてもプレビューが
表示されずそのままプリンターに印刷ジョブが行ってしまう。

### 該当のソースコード

```C#
        private void Print()
        {
            var pDialog = new PrintDialog();
            pDialog.PageRangeSelection = PageRangeSelection.AllPages;
            pDialog.UserPageRangeEnabled = true;

            var xpsDocument = new System.Windows.Xps.Packaging.XpsDocument("XPSファイルパス", FileAccess.Read);

            var fixedDocSeq = xpsDocument.GetFixedDocumentSequence();

            // XPSファイルに設定されている印刷設定を印刷ダイアログに使用
            pDialog.PrintQueue.DefaultPrintTicket = xpsDocument.FixedDocumentSequenceReader.PrintTicket;
            pDialog.PrintTicket = xpsDocument.FixedDocumentSequenceReader.PrintTicket;
            if (pDialog.ShowDialog() == true)
            {
                ticket = pDialog.PrintTicket;
                pDialog.PrintQueue.DefaultPrintTicket = ticket;
                
                fixedDocSeq.PrintTicket = ticket;

                queue = pDialog.PrintQueue;
                XpsDocumentWriter writer = PrintQueue.CreateXpsDocumentWriter(queue);
                writer.Write(fixedDocSeq);
                writer = null;
            }
            xpsDocument.Close();

        }
```



### 補足情報（FW/ツールのバージョンなど）

Visual Studio 2017
.NET Franework 4.6.1
WPF アプリケーション

XPSファイルを印刷ダイアログ表示後に印刷をおこないたい

```VBA
Sub test()

If Cells(1, 1).Value >= 5 Then
    MsgBox ("正しい")

Else
    MsgBox ("間違い")
End If

End Sub
```

お世話になっております。
A1のセルに適当にああああとか入力したとして

上記コードで、何故
Cells(1, 1).Value >= 5　とかでも
正しいになってしまうのでしょうか。
よろしくお願いいたします。

VBAの比較について教えてください

＜背景＞
csvファイルを読み込んでChartコントロールで線グラフを表示するアプリケーションを作ろうとしています。
基本的な枠組みは完成し、確認した範囲でほとんどのcsvは表示できたのですが、1つだけできないファイルがありました（表示しようとすると赤のバツが表示）。
調べていくと、高い値が含まれることがわかりました。そこで、どこまで高い値なら表示できるかを確認するために下記のコードを実行しました。

```C#
chart1.Series.Clear();
chart1.ChartAreas.Clear();
chart1.ChartAreas.Add(new ChartArea());

Series testSeries = new Series();

testSeries.ChartType = SeriesChartType.Line;
double textVal = Math.Pow(10, 28) * 3.499999999999999;

testSeries.Points.Add(textVal);            
chart1.Series.Add(testSeries);
```

＜できること＞
上記コードではグラフ表示ができます。

＜知りたいこと＞
上記コードのtextValにて仮数部の9は14個ですが、これを15個にすると表示できない（赤のバツが表示）ことがわかりました。その理由（根拠）を知りたいです。

＜補足＞
Chartコントロールでは表示できない上限値があり、csvにそれを超える値があったら表示前にメッセージを出したいです。
上限値はMath.Pow(10, 28) * 3.499999999999999辺りにあるように思いますが、ちゃんとした根拠がわかっているわけではないのでもやもやします。

＜環境＞
Visual Studio 2010
Windows7 64bit

ChartコントロールのY軸上限値

### 前提・実現したいこと

もともとWindows7 開発環境はVisualStudio VC6.0を使用しています。
下記の実装して実行をすると、Windows7の環境では、毎回100が表示されますが、
Windows10に環境を移したところ、毎回結果が異なり不定（100or0）となります。
単純にWindows7ではたまたまメモリの状況が固定となっていただけで、
不定になるのが正解でしょうか？？

### 発生している問題・エラーメッセージ

```
関数の戻り値が異なる
（よくわからなくなったので教えてください。）
```

### 該当のソースコード

```ここに言語名を入力
class Hoge{

public:
 Hoge( doube rX ) :m_rX( rX ){};

private:
 double m_rX;

public:
 double GetX( void )       { return m_rX ; }
 void   SetX( double rX )　{ m_rX = rX ;   }
}

main{
  Hoge* pHoge = new Hoge( 0. ) ;
  Hoge& hoge = *pHoge ;
  delete pHoge ;
  pHoge = new Hoge( 100. );

  CString strHoge ; strHoge.Format( "%f", hoge.GetX() ) ;
  MessageBox( strHoge );  

  delete pHoge;
 }
```

### 試したこと
Windows7 Windows10いずれでビルドしても同じ
VisualStudioのバージョンをかえても同じ

### 補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

関数の戻り値が異なる

C#で画像の拡大縮小の際にクリックしたところへの拡大の処理についてです。

単に拡大するとクリック（Ctl + 右クリックで拡大、Ctl + 左クリックで縮小）した場所ではないところが拡大されます。

それをクリックした場所で拡大縮小縮小できるようにしたいと思っています。

pointをつかってx,y座標を指定してあげればいいと思ったのですが、拡大されたとき座標はもとの画像と異なるためうまくいきません。

拡大は4倍のため、拡大後の座標をもとのx,y座標x,yの4倍にしてやればいいと思ったのですがこれもとおりません。

なにかクリックしたポイントへの拡大縮小をおこなう方法はあるでしょうか？

ちなみにツールバーで動かせるようになっているので、ツールバーによる座標の取得という方法をとっています。

C# 画像のクリックしたところへの拡大縮小

閲覧ありがとうございます。

Visual　Studio2008であるプログラムをコンパイルするときに、最適化をするかしないかの場面があります。
詳細オプションにある「最適化を有効にする(E)」にチェックボックスを入れるかで選択ができます。

では、一般的な最適化の意味合いとこの「最適化を有効にする(E)」の意味の違いって何ですか？

何か特別な意味合いがあるのですか？
例えば、このセキュリティが固いパソコンで最適化されているエグゼを実行すると、セキュリティポリシーに反したウイルス(若しくは、ほかの原因的要因)と判断されて実行されないとか。etc...

それが正しいので合ったら、最適化されたエグゼファイルを動かすためには、セキュリティポリシーを甘くするしかないとか。

.NETをコンパイルするときの「最適化を有効にする(E)」について

お名前.comで管理しているドメインについて、下記のようにWebサーバだけ
別のDNSサーバ(dns01.gmoserver.jp)へ問い合わせる設定にしたいのですが、
設定をご教示ください。

①管理ドメイン
　example.com

②登録レコード
　MX example.com　　alt1.aspmx.l.google.com　←メールはGMailを使う
　NS  @　　　　　　 dns01.gmoserver.jp　←GMOのネームサーバーを指定

具体的には、Webブラウザで“example.com”にアクセスした際は、
gmoのDNSへアドレスを問い合わせさせたいです。(且つメールはGMailを継続利用したい)
上記の設定とした場合、MXレコードもGMOへ問い合わせないか、心配なので
質問した次第です。
誤っていれば、正しい設定方法をご教示願います。

よろしくお願いします。

お名前.comで取得、管理しているドメインに対し、Webアクセスだけ別のDNSサーバを参照させたい

###実現したいこと

reStructuredTextで書かれた仕様書(sample.rst)をword(sample.docx)へ変換出力。
基本コマンド：pandoc index.rst -o index.docx
その際、wordの罫線や文字色を指定したい。


### 試したこと

[参考URL](https://qiita.com/sky_y/items/5fd5c9568ea550b1d7af)


①スタイル参照用ファイルを手に入れる。
pandoc --print-default-data-file reference.docx > reference.docx

②スタイル参照用ファイルreference.docxを編集

③私の環境では以下にPandocが入っている
C:\Users\XXXXXX\AppData\Local\Pandoc
reference.docxを↑ここへ置く
pathも通す
 

④ reference.docxを読みこみ、反映させて出力　←しかし反映されない

試したコマンド１
```
C:\work\sample_doc>
pandoc sample.rst --from=rst --to=docx --standalone --reference-doc=C:\work\sample_doc\reference.docx --output=sample.docx
```
試したコマンド２
```
pandoc -c --reference-docx=reference.docx sample.rst -o sample.docx
```


### 発生している問題・エラーメッセージ

reference.docxで指定したスタイルになりません。
どなたかご教授お願いします。



### 補足情報（FW/ツールのバージョンなど）

Windows10
Pandoc2.5
Office 2015

Pandocでwordのフォーマットを指定して出力

### 前提・実現したいこと

UAC対策としてmsiのインストール先を
・C:\Users\ユーザー名\AppData\Local\会社名\アプリ名\
に変更したい。

内製ソフトの保守・改修を行っています。

UAC対策が全く行われておらず、exeにシールド(盾)マークが付いているために標準ユーザーが起動するたびに管理者昇格を求められています。

そこで、UAC対策の一環としてインストール先を現状の
・C:\Program File(x86)\
から、ユーザーごとにインストールすべく
・C:\Users\ユーザー名\AppData\Local\会社名\アプリ名\
に変更したいと考えています。

インストーラー内でユーザーを識別し、（動的に）インストール先を取得・表示したいと考えています。

![イメージ説明](bacfac981136dcd302041585c97f1020.jpeg)

インストーラー作成に関する
・Windows Installer技術
・InstallScript技術
・MSIX技術
などの利用で実現可能でしょうか？

msi形式にはこだわっていません。
ヒントや回答など、みなさまの知識やお知恵をお借りしたく。
よろしくお願いします。

### 試したこと

以下を参考に試したところ、
・C:\Users\ユーザー名\AppData\Local\Programs\会社名\アプリ名\
とProgramsフォルダーがワンクッション入ってしまいます。

https://tsmatz.wordpress.com/2009/06/24/rds-windows-installer-5-0/

また、batファイルやVBSを使って試作したのでスマートではありません。

### 補足情報（FW/ツールのバージョンなど）

・windows10
・Visual Studio 2017
・.NET Framework 4.7.2
・Windows Forms
・VB.NET

UAC対策としてmsiのインストール先をC:\Users\ユーザー名\AppData\Local\会社名\アプリ名\に変更したい。

### 前提・実現したいこと
VBAで、サイトにログインして情報を取得したいです。
ログインIDを入力すると、「次へ」ボタンが有効化し、パスワード入力画面に進むので、この動作をVBAで行いたいです。
ボタンを有効化する方法を教えてください。

### 発生している問題・エラーメッセージ
VBAからログインIDを設定するとボタンが有効化しません。見た目上は入力欄に値が入っています。
キーボードから何かを入力するとボタンは有効化しますが、ボタンを有効化するための条件がわかりません。

追記します。
VBAで設定すると、見た目上は入力値に値が入っていますが、HTMLのvalueは""のまま、
キーボードから入力するとHTMLのvalueに値が入ります。

ソースの下のほうにiframeタグなど、よくわからないものがあり動作条件がつかめていません。


### 該当のソースコード
```HTML
<input name="textInputValue" class="text-input" id="useridInput" aria-invalid="false" aria-required="true" aria-describedby="error-caption input-title" placeholder="メールアドレスを入力してください" value="a" autocapitalize="off" autocorrect="off">
```
````VBA
Dim objIE As InternetExplorer
    Set objIE = CreateObject("Internetexplorer.Application")
objIE.navigate "URL"
objIE.document.getElementById("useridInput").value = "メールアドレス"
    
````
### 試したこと

MsgBoxでobjIE.document.getElementById("useridInput").valueを見ると、メールアドレスが設定されていますがボタンは有効化しません。
objIE.document.getElementById("useridInput").clickしてみましたがダメでした。

### 補足情報（FW/ツールのバージョンなど）
ブラウザ：IE11　１１．５２３．１７．１３４．０

VBAでキーボード入力したときと同様の操作を実現したい

昨今のセキュリティの脅威を受けて、多くのサービスが顧客情報を暗号化、ハッシュ化していると思います。
パスワードは勿論、住所、氏名、年齢等も暗号化してDBに保存してあることもあると思います。

暗号化、ハッシュ化にはBASE64や、Bcrypt、SHA256など様々な方法があると思いますが、疑問があります。
例えばBASE64で暗号化された文字列等は簡単に復号することもできると思います。
しかし復号できるとなると正直、暗号化している意味があまりない気がすると思うのですが、何のためにBase64で暗号化する必要性があるのでしょうか。
勿論Base64でデータベースに保存されている内容を復号化して表示するといったことをアプリケーション側でしやすい等の利点はあると思うのですが。。。
流出した場合、全くセーフティーではない気がします。

また原則、復号不可能なSHA256等のハッシュ化を顧客情報に対して行いデータベースに保存していたとします。
万が一、顧客情報が流出した際もセーフティーであるとは思うのですが、そうすると実質、顧客情報を管理者側が見れないに等しい状態になったり、管理が猥雑になる気がします。

質問をまとめると、パスワードのような重大な顧客情報に対してはハッシュ化を用いるとしても、名前や住所のような(重大ではありますが)情報はどのようにしてDBに保存するのが一般的であるのかということです。
宜しくお願い致します。

顧客情報のような重大な情報をどのように暗号化することが最適かが良く分からない

みなさまお世話になっております。
スマホ、デスクトップ対応の対戦ゲームアプリを開発しているものです。
デスクトップ版のアプリの開発経験が浅いため質問させていただきます。
どうぞよろしくお願いいたします。


**__１、デスクトップ版アプリを使用しているユーザーにPush通知を送ることは可能でしょうか？__**
スマホであればFirebaseのPush通知機能などで実装可能ですよね？

デスクトップの場合、WebPush通知（ブラウザプッシュ）の仕組みを
アプリにコーディングすれば実現可能なのかと思っております。

こちらのサービスはそうなのではと考えております。
DropBoxも同じ機能があるかと思います。
https://www.filetalk.info/download-install-app.html

この場合どのようなコーディングをしたら良いか、
参考サイトなどご存知でしたら紹介いただけたらと思います。


**__２、通知を押すとアプリが開く。通知経由で起動した場合、特定の処理を行うことができる？__**
これもスマホなら実装可能と理解しております。
しかし、デスクトップの場合それは可能なのでしょうか？

お知恵のほどよろしくお願いいたします。

デクストップPCにおける通知機能

c#でexcelを生成するプログラムを作っています。
サイトを参考に以下のようなプログラムを書きました。
createexcelを1回実行するだけならエラーは出ないのですが、400ファイルとか連続でcreateexcelを呼び出すと「DisconnectedContextが検出されました。」とエラーが出ます。
catchできません。
エラーの出る箇所はフォーカスが当たるので、finallyに入ってからだと思います。

http://www.port135.com/2012/08/18/resolution-for-disconnectedcontext-was-detected-error-when-releasing-excel-object-in-c/
http://hiro-syumi.ldblog.jp/archives/36511362.html

上記を試しましたが、エラーは解消できませんでした。
VB.NetであればDoEventsで解消できるとか書いてありましたが、C#でいうとApplication.DoEventsでエラーが多いと言われているので適用していません。

エラーを解消する方法はないのでしょうか？

```C#
        private void CreateExcel(string filename)
        {
            // Excel操作用オブジェクト
            Microsoft.Office.Interop.Excel.Application xlApp = null;
            Microsoft.Office.Interop.Excel.Workbooks xlBooks = null;
            Microsoft.Office.Interop.Excel.Workbook xlBook = null;
            Microsoft.Office.Interop.Excel.Sheets xlSheets = null;
            Microsoft.Office.Interop.Excel.Worksheet xlSheet = null;

            try
            {
                // Excelアプリケーション生成
                xlApp = new Microsoft.Office.Interop.Excel.Application();

                // ◆新規のExcelブックを開く◆
                // Addメソッド
                xlBooks = xlApp.Workbooks;
                xlBook = xlBooks.Add();

                // シートを選択する
                xlSheets = xlBook.Worksheets;
                xlSheet = xlSheets[1] as Microsoft.Office.Interop.Excel.Worksheet; // 1シート目を操作対象に設定する

                // 表示
                xlApp.Visible = false;
                // 警告無視設定
                xlApp.DisplayAlerts = false;

                // 値を「A1」に代入
                xlSheet.Range["A1"].Value = "文字列を入力";

                // 保存
                xlBook.SaveAs(filename, Type.Missing, Type.Missing, Type.Missing, Type.Missing,
                              Type.Missing, Excel.XlSaveAsAccessMode.xlExclusive, Type.Missing, 
                              Type.Missing, Type.Missing, Type.Missing, Type.Missing);

                // 閉じる
                xlBook.Close(Type.Missing, Type.Missing, Type.Missing);

            }
            catch (Exception ex)
            {
                string s = ex.Message;
            }
            finally
            {
                if (null != xlApp)
                {
                    // アプリケーションの終了
                    xlApp.Quit();

                    // アプリケーションのオブジェクトの解放
                    System.Runtime.InteropServices.Marshal.ReleaseComObject(xlSheet);
                    System.Runtime.InteropServices.Marshal.ReleaseComObject(xlSheets);
                    System.Runtime.InteropServices.Marshal.ReleaseComObject(xlBook);
                    System.Runtime.InteropServices.Marshal.ReleaseComObject(xlBooks);
                    System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp);

                    xlSheet = null;
                    xlSheets = null;
                    xlBook = null;
                    xlBooks = null;
                    xlApp = null;
                }
            }
        }
```

「DisconnectedContextが検出されました。」のエラー解消法

VBAでPDFファイルの内容を全てのページコピーしてExcelへ値貼り付けを行いたいです。
D3セルにコピーしたいフォルダパスとファイル名を入力しています。
PDFファイルを開き、閉じる所までは出来たのですが、肝心の処理が分からず困っています。
コピーしたPDFの内容はSheet2のA1セルへ値貼り付けしたいです。

どなたか方法をご存知の方がおりましたら、教えて頂けますと助かります。


```VBA
Sub PDF()

Dim ws As Worksheet

Dim objAcroApp As New Acrobat.AcroApp
Dim objAcroPDDoc As New Acrobat.AcroPDDoc

Dim IRet As Long
Dim PDF As String

'D3セルにPDFのファイルパス
Set ws = Worksheets("Sheet1")
PDF = ws.Range("D3")

IRet = objAcroApp.Show
IRet = objAcroPDDoc.Open(PDF)

objAcroPDDoc.OpenAVDoc PDF


'<全選択＆コピー＆ぺースト処理>


IRet = objAcroApp.CloseAllDocs
IRet = objAcroApp.Hide
IRet = objAcroApp.Exit

Set objAcroPDDoc = Nothing
Set objAcroApp = Nothing

End Sub


```