No.3ベストアンサー
- 回答日時:
>エクセルVBA読み込みアドレスの最後に「¶」
自分でつけてるじゃないですか...orz
>PICNA = Replace$(PICNA & OpenFileName(i) & vbCrLf, ChrW(182), "")
の『vbCrLf』...
NACARDSU が何者かわかりませんけどTextBoxだったら
Dim OpenFileName As Variant
OpenFileName = Application.GetOpenFilename(FileFilter:="画像,*.JPG")
If VarType(OpenFileName) = vbBoolean Then Exit Sub
NACARDSU.Text = CStr(OpenFileName)
これで単独選択。
MultiSelect:=True でListBoxにファイル名を読み込みたいなら
Dim OpenFileName As Variant
OpenFileName = Application.GetOpenFilename(FileFilter:="画像,*.JPG", MultiSelect:=True)
If VarType(OpenFileName) = vbBoolean Then Exit Sub
Me.ListBox1.List = OpenFileName
解決しました。!!!!バカみたい。
私が理解しないで付けていたのですね。
自分でコードを付けたのではなく、試行錯誤でいろいろコピーしたり
して作ったものですから。ありがとうございました。
感謝感謝です。勉強になりました。
No.2
- 回答日時:
ぃや、だ か ら。
PIC = Replace$(ClList.List(ClList.ListIndex, 9), ChrW(182), "")
CLPIC.Value = PIC
Image1.Picture = LoadPicture(PIC)
#私のres#1は無駄レスなの?......orz
この回答への補足
コードを確認してみました。コードは182でした。
また、ご指導の通り実施してみましたが、同じでした。
テキストボックス内には表示されていますが、実際のエクセルのセル内には
この文字が記載されていませんでした。
数式バー内のアドレスが、「alt+eEnter」で改行されている様な状態が原因の様です。
ちなみに下記コードでテキストボックスに読み込みむとアドレスの最後に表示されます。
この段階で削除してテキストボックスをセルに書き込むと問題なく画像が表示されます。
エクセルの数式バーの最後で「BS」で1行にしても「パス名が無効です」とエラーとなります。
「・・・.jpg」の「g」1文字を削除して入力し直すと問題なく読み込めました。
Private Sub PICRE1_Click()
'画像取り込み
On Error GoTo err_exit 'エラー回避
Dim C As Integer
Dim OpenFileName As Variant, PICNA As String, i As Long
OpenFileName = Application.GetOpenFilename(FileFilter:="画像,*.JPG", _
MultiSelect:=True)
For i = 1 To UBound(OpenFileName)
PICNA = Replace$(PICNA & OpenFileName(i) & vbCrLf, ChrW(182), "")
Next i
NACARDSU.Value = PICNA
Exit Sub
err_exit: '2エラーの場合
MsgBox ("やり直してください。")
end sub
質問のしかたが悪いのと、VBAもまだ良く理解しておりません。
宜しくお願いします。
No.1
- 回答日時:
テキストボックスに表示されたアドレス文字列を元に画像ファイルを読み込んでいるという事ですか?
今ひとつ状況が掴めないですが、取り敢えず不要な文字をReplaceしてしまえば良いのでは。
念のため、最後の1文字の文字コードを調べてみてください。
Debug.Print AscW(Right$(Me.TextBox1.Text, 1))
例として、182だったら
With Me.TextBox1
.Text = Replace$(.Text, ChrW(182), "")
End With
な感じで。
この回答への補足
早速の対応ありがとうございます。
データベースからある条件でリストボックスに読み込みます。そのリストボックスをクリックするとテキストボックスとイメージに表示する。
Dim PIC As String
PIC = ClList.List(ClList.ListIndex, 9)
CLPIC.Value = PIC
Image1.Picture = LoadPicture(CLPIC.Value)
Image2.Picture = LoadPicture(CLPIC.Value)
このCLPICテキストボックスに、ファイルopenダイヤログを開いてパス名を取得するまでできたのですが
パス名の最後に「¶」が着いているのです。社内lanなのでパス名が非常に長いです。
よろしくご指導お願いします。
ごめんなさい。
会社のパソコンにあるため、詳しく説明しようとしてつい・・・
週明けに調整してみます。(1週間出張なので出張先で試してみます少々お時間を)
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのVBAについて とあるサイトのコードを参考に、CSVの文字化けを直すVBAを作成しているの 7 2022/11/04 14:15
- Visual Basic(VBA) エクセルVBAでメールの自動作成の モジュールを作ったのですが、txtファイルから読み込んだ本文が文 2 2022/07/20 15:01
- Visual Basic(VBA) VBAで出力したCSVファイルの先頭にカンマを挿入したい 5 2022/10/14 12:20
- Visual Basic(VBA) vbaのループ処理について 6 2022/05/06 15:35
- Excel(エクセル) セルを数式で指定する方法 5 2022/04/13 16:55
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- PostgreSQL ポストグレにあるExcelファイルを開くには 1 2022/12/13 18:07
- Excel(エクセル) 【VBA】 Alt+PrintScreenにてアクティブウィンドウのスクショを貼付する方法 4 2022/12/08 20:53
- Visual Basic(VBA) 起動中のアプリ、ソフトの取得 3 2022/12/28 11:13
- Excel(エクセル) エクセル365の関数。誕生日表記がおかしい 2 2022/10/17 18:52
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
C言語 バッファについて。
-
HTMLのフレームとテーブル...
-
ICチップのリードフレームを単...
-
FALSH一部レイヤーだけループ再生
-
[AS3]ループするたびに変数等は...
-
キーフレームとはなんですか?
-
可愛い無料写メフレームサイト
-
シーン逆再生から再生
-
シーンの分割方法
-
ページ移動する間にMCのアクシ...
-
Excel VBA SetFocus
-
PS5やPS4proに関して質問です。...
-
Flashゲームのセーブ機能の作り方
-
再生中のフラッシュ・巻き戻し...
-
WEBブラウザの重複起動の禁止
-
リフレッシュ・レート、フレー...
-
ビルダーでのフレームって縦幅...
-
ホームページに再生ボタン
-
トグルボタンの排他制御でご教...
-
Suzukaで時計のflashを作成し、...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
C#でDLLファイル読み込みを行う...
-
C言語 バッファについて。
-
GetPrivateProfileString変値
-
SDHCカードのデータをPCに取り...
-
画像が一瞬とぎれてしまいます...
-
ipadでdブックがとんでもなく遅...
-
PIC EEPROM
-
ヤフオクの画像拡大機能が
-
XMLを利用したFLASH画像ギャラ...
-
SQLが応答しなくなっているのか...
-
C#でブラウザのタイムアウト処理
-
メールソフト「Mail」で送った...
-
PCでのツイッター閲覧について
-
空の音楽用CDーRだけが認識...
-
エクセルVBA読み込みアドレスの...
-
FLASH内MCの表示・非表示
-
Flashで右クリックメニューにつ...
-
フレーム内に移動したい
-
ソーラーパネルのアルミフレー...
-
HPを作りたい
おすすめ情報