0

Webサイトからデータを取得するためのVBAExcelスクリプトを作成しました。

キャプチャする11-01と、Excelは元の11-01ではなく11-Jan（11/01/2012）に自動的に変換されます。

11-01を11-Janに変換しない方法は何ですか？

住所単位郵便
JALAN LEMPHENG 11-01 128791

ありがとう。

Set clip = New DataObject
clip.SetText "<html><table><tr>" _
& "<td>" & ieSearchGet.outerHTML & "</td>" _
& "</tr></table></html>"
clip.PutInClipboard
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
    ActiveCell.Offset(1, 0).Select
Loop
ActiveSheet.PasteSpecial "Unicode Text"
4

2 に答える 2

2

データを貼り付ける前に、データを貼り付けるセルの形式を変更するのが最善だと思います。以下は動作しますか?

Set clip = New DataObject
                clip.SetText "<html><table><tr>" _
                & "<td>" & ieSearchGet.outerHTML & "</td>" _
                & "</tr></table></html>"
                clip.PutInClipboard
                ActiveCell.Offset(1, 0).Select
                Do While Not IsEmpty(ActiveCell)
                    ActiveCell.Offset(1, 0).Select
                    Selection.NumberFormat = "@" 'Format as Text the selected cell
                Loop
                ActiveSheet.PasteSpecial "Unicode Text"
于 2012-11-08T12:04:12.583 に答える
0

貼り付けるテキストの前に文字 "'" (つまり、一重引用符) を追加してみてください。

私はこれをやろうとしたことがないので、おそらくこれは正しいコードではないでしょう。おそらく実験する必要があります。しかし、それは始まりです：

clip.SetText "<html><table><tr>" _
    & "<td>'" & ieSearchGet.outerHTML & "</td>" _
    & "</tr></table></html>"
于 2012-11-08T12:05:02.380 に答える