常連

VB6で、コマンドライン引数に フォルダーパスを入れたいのですが、
パスに半角スペースが入るので、ダブルクォーテーションで括ってデバッグし、
プログラム側でコマンドライン引数を取得すると、ダブルクォーテーションが入っていました。
VisualStudioでのデバック時にダブルクォーテーションが含まれないような方法はあるでしょうか。
実際にこのEXEをコマンドプロンプト等で実行する際にダブルクォーテーションを付けても
このようなことは起こらないと思うので、運用上は問題ないですが・・・。
コマンドライン引数は、[プロジェクトのプロパティ]-[実行可能ファイルの作成]-[コマンドライン引数]のところに入れています。

VB6 コマンドライン引数について

VB6.0時代に作成したプロジェクトを、VB2008の「Visual Basic アップグレード ウィザード」を経由して、
VS2019で利用していました。

VS2022が出たので、そちらでも正常に動作することを確認し、その後VS2019を削除したところ
フォームのデザインタブで、
「ファイル内にデザイン出来るクラスがないため ～ をデザインできません。」
とエラーを吐くようになりました。
![エラー画像](https://d1666c7av167g2.cloudfront.net/questions/2022-01-12/f64affee-6d58-4ed2-a5e1-4eafabeb3fe4.png)

VS2019を戻すと、このエラーが出なくなるので、色々調べたところ、
VS2019の個別コンポーネントの「.NET Framework 4 Tageting Pack」を入れると正常起動する事が分かりました。
![個別コンポーネント](https://d1666c7av167g2.cloudfront.net/questions/2022-01-12/4da711e0-09a2-49cb-b071-7b4473064d59.png)

ですが、VS2022にはこのコンポーネントがオプション付属されていません。

今はVS2019の「.NET Framework 4 Tageting Pack」だけを入れてVS2022と併用しているのですが、
この先ずっとVS2019は残すのではなく、いずれVS2022一本にしたいです。

---
VS2019を使わずに「.NET Framework 4 Tageting Pack」の導入方法、
若しくはVS2022環境でのこのエラー回避策を教えて下さい。
（因みに、プロジェクトは100以上有り、一つのプロジェクトに100個近くエラーが出るので、
エラーのしらみつぶしではなく、元々2019で使えていたプロジェクトは修正しない方向にしたいです。）

Windows10

VB6.0で作成したプロジェクトをVS2022で使用したい。

解決いたしましたありがとうございました、、、、、、、、、、、、、

問題が分からないです。

### 実現したいこと

VBAで指定範囲セルの乗算

### 前提

excelのVBAでforループの中で7行目以降のJG列からJI列の値を「P列からR列の値にJ列の値を掛けた値」になるようにしたいです。
最初に作ったののは下のコード①なのですが、これでは動かず、②にしても動かず、そのままコピーするだけの③なら動きました。
また、似たような質問のhttps://teratail.com/questions/114350 を参考にしてevaluateを使ってみましたが結局実装できませんでした。

他の言語ならchatGPT等に聞けば何とかなったりするのですが、VBAに関しては軒並み的外れな答えしか返ってこなくて困っているので、原因と正しい書き方についてご回答宜しくお願い致します。

### 発生している問題・エラーメッセージ

```
実行時エラー１３
型が一致しません
```


### 該当のソースコード

```VBA
①Worksheets("MP").Range("JG7:JI7").Offset(i, 0).Value = Worksheets("MP").Cells(7 + i, 9) * Worksheets("MP").Range("P7:R7").Offset(i, 0).Value
②Worksheets("MP").Range("JG7:JI7").Offset(i, 0).Value = 2 * Worksheets("MP").Range("P7:R7").Offset(i, 0).Value
③Worksheets("MP").Range("JG7:JI7").Offset(i, 0).Value = Worksheets("MP").Range("P7:R7").Offset(i, 0).Value
```

### 補足情報（FW/ツールのバージョンなど）

office16, office365


VBAで指定範囲セルの乗算

### 前提・実現したいこと

OS：Windows10 Pro 1903 64bit
Access:Office Pro 2016 64bit

Visual Basic 6.0でAccess接続を行う簡易プログラムを作成しております。
Openの箇所で以下エラーメッセージが発生しています。
DAO、ADO接続ともに成功していません。

### 発生している問題・エラーメッセージ

```
DAO接続
参照：Microsoft Office15.0 Access database Object Library
errMsg：クラスが登録されていません
```
```
ADO接続
参照：Microsoft ActiveX Data Object 6.1 Library
errMsg：プロバイダーが見つかりません。正しくインストールされていない可能性があります。
```

### 該当のソースコード
```Visual Basic 6.0　DAO
'■Visual Basic 6.0　DAO接続
Sub Sample()
    Dim path As String
    Dim db   As DAO.Database
On Error GoTo proc_err

    'DBパス'
    path = "D:¥Sample.accdb"
 
    'DBオープン'
    Set db = OpenDatabase(path)
    
    'DB接続成功'
    Debug.Print "DB接続成功"

    GoTo proc_end
proc_err:
    Debug.Print Error
proc_end:
    If Not db Is Nothing Then db.Close
    Set db = Nothing
End Sub
```

```Visual Basic 6.0　ADO
'■Visual Basic 6.0　ADO接続
Sub Sample()
    Dim path As String
    Dim cs   As String
    Dim cn   As ADODB.Connection
On Error GoTo proc_err

    'DBパス'
    path = "D:¥Sample.accdb"
    '接続文字列'
    cs = "provider=Microsoft.ACE.OLEDB.16.0;Data Source=" & path
    
    'DB接続'
    Set cn = New ADODB.Connection
    cn.ConnectionString = cs
    Call cn.Open
    
    'DB接続成功'
    Debug.Print "DB接続成功"

    GoTo proc_end
proc_err:
    Debug.Print Error
proc_end:
    'DB接続解除'
    If cn.State <> adStateClosed Then cn.Close
    Set cn = Nothing
End Sub
```

### 試したこと

「Microsoft Access データベース エンジン 2010 再頒布可能コンポーネント　32bit」のインストールで接続できることを確認。
　→Visual Basic 6.0のAccess接続は32bitライブラリでないと動作できない？

### 補足情報（FW/ツールのバージョンなど）

参考URL
http://note.phyllo.net/?eid=1106279
http://note.phyllo.net/?eid=1106281

VB6のAccess2016 64bit(.accdb)への接続方法

ネット上にある以下のマクロを入れて行ったところ
oFileStream.Open wavePath, SSFMCreateForWrite
の部分でひっかかっているようです。

「実行時エラー'5' 　プロシージャの呼び出し、または因数が不正です。」というエラーです。
Visual Basic 初心者のため、解決策をご存じの方よろしくお願いいたします。

使用したマクロ全体

Sub SlideVoice()
    Dim i As Long
    With ActivePresentation
        For i = 1 To .Slides.Count

            ' 現在のスライドのノートを取得
            Dim strNote As String
            strNote = ActivePresentation.Slides(i).NotesPage.Shapes.Placeholders(2).TextFrame.TextRange.Text
        
            ' ノートが空白なら以下は実行しない
            If strNote = "" Then
            Else
                ' PowerPointファイルのあるフォルダパスを取得
                Dim cd As String
                cd = ActivePresentation.Path
            
                ' PowerPointファイルがあるのと同フォルダに、wavファイルを作成
                Dim wavePath As String
                wavePath = cd & "\voice.wav"
            
                ' wavファイルに保存
                Const SAFT48kHz16BitStereo = 39
                Const SSFMCreateForWrite = 3
            
                Dim oFileStream, oVoice
            
                Set oFileStream = CreateObject("SAPI.SpFileStream")
                oFileStream.Format.Type = SAFT48kHz16BitStereo
                oFileStream.Open wavePath, SSFMCreateForWrite
            
                Set oVoice = CreateObject("SAPI.SpVoice")
                Set oVoice.AudioOutputStream = oFileStream
                oVoice.Speak strNote
            
                oFileStream.Close
            
                ' audioオブジェクトの埋め込み
                Dim oSlide As Slide
                Dim oShp As Shape
            
                Set oSlide = ActivePresentation.Slides(i)
                Set oShp = oSlide.Shapes.AddMediaObject2(wavePath, False, True, 10, 10)
            
                With oShp.AnimationSettings.PlaySettings
                    .PlayOnEntry = True
                    .HideWhileNotPlaying = True
                End With
            
            
                ' 埋め込み終わったらwavファイルを消す
                Dim fso As Object
                Set fso = CreateObject("Scripting.FileSystemObject")
                If fso.FileExists(wavePath) Then Kill wavePath
            
            End If
        Next i
    End With

    MsgBox "音声埋め込み完了"

End Sub

パワポへの音声挿入マクロが動かない

### 前提・実現したいこと
VisualStudioでUI開発をしています。Cでの組込みプログラミングは齧ったことがありますがOS上のアプリ開発については完全な初心者です。

VisualStudio2017,C++にて作成したDLL(参考URL1，2)内の関数をVB6にて読み込んで使いたいと思っています。

※補足1
　2つのexeファイルで共通の変数を持つためのDLLになります


お力添えいただけると幸いです。

### 発生している問題・エラーメッセージ
作成したDLLを参考URL2のようにVisualStudio2017で作成した別プロジェクトで読み込むことは可能ですが、VB6では読み込むことができません。
参考URL1: http://7ujm.net/VB/AppConversation.html
参考URL2: https://docs.microsoft.com/ja-jp/cpp/build/walkthrough-creating-and-using-a-dynamic-link-library-cpp?view=vs-2017

### DLLソースコード

```C++
#include "stdafx.h"
#include <stdio.h>
#include "xxx.h"

char buff[32768] = "";
extern HANDLE hFile;
#pragma region
char* GetString(void) {
	//アドレスを取得
	LPVOID hMap = MapViewOfFile(hFile, FILE_MAP_WRITE | FILE_MAP_READ, 0, 0, 0);

	strcpy_s(buff, 32768, (char*)hMap);//読み出し	
	UnmapViewOfFile(hMap);
	return buff;
}

void SetString(char*str) {
	//アドレスを取得
	LPVOID hMap = MapViewOfFile(hFile, FILE_MAP_WRITE | FILE_MAP_READ, 0, 0, 0);
	strcpy_s((char *)hMap, 32768,str);//書き込み
	UnmapViewOfFile(hMap);
}
#pragma endregion
```
### DLLヘッダ

```C++
#pragma once
#ifdef XXX_EXPORTS
#define XXX_API __declspec(dllexport)
#else
#define XXX_API __declspec(dllimport)
#endif

extern "C" XXX_API char* GetString(void);
extern "C" TELECOMLIB_API void SetString(char*str);
```
### 試したこと

RegAsm.exeやRegsvr32.exe でレジスタに登録しようとしましたが"有効なアセンブリファイルではありません"となって登録できませんでした。

VisualStudio2017(C++)で作成したDLLをVB6で読み込みたい

FileOpenはStreamReaderとstreamwriterと違って文字コードを指定できないみたいですが、何になるんでしょうか？
UTF8ですか？
https://docs.microsoft.com/ja-jp/dotnet/api/microsoft.visualbasic.filesystem.fileopen?view=netframework-4.8
ファイルへの読み書き込みはWriteLine, PrintLineでしようと思います