Excel VBAŽ¿–â” IV

“–Ž¿–â” ‚ÍA—LŽu‚Ìƒ{ƒ‰ƒ“ƒeƒBƒA¸_‚Ì‚¨‚©‚°‚Å¬‚è—§‚Á‚Ä‚¢‚Ü‚·B
–â‘è‚ª‰ðŒˆ‚µ‚½‚çA•K‚¸‚¨—ç‚ð‚µ‚Ü‚µ‚å‚¤‚ËB
–{ƒTƒCƒg‚ÌŠî–{•ûj‚ð‚Ü‚Æ‚ß‚Ü‚µ‚½B‚±‚¿‚ç ‚ð‚²ˆê“Ç‚‚¾‚³‚¢B

“ŠeŽí•Ê‚Ì‘I‘ð‚ª•K—v‚Å‚·B‚²’ˆÓ‚‚¾‚³‚¢B
–À˜f“Še–hŽ~‚Ì‚½‚ßAURL‚Ì“ü—Í‚ð§ŒÀ‚µ‚Ä‚¢‚Ü‚·B‚²—¹³‚‚¾‚³‚¢B


	V‹K“Še „«ƒcƒŠ[•\Ž¦ „«ˆê——•\Ž¦ „«ƒgƒsƒbƒN•\Ž¦ „«ŒŸõ „«Ý’è „«‰ß‹ŽƒƒO „«ƒz[ƒ€

75420 / 76738

©ŽŸ‚Ö@b@‘O‚Ö¨


	y5754zRe:CSVƒtƒ@ƒCƒ‹‚ðŠJ‚‚Ì‚ÉŽžŠÔ‚ª‚©‚©‚è‚·‚¬

Jaka - 03/5/29(–Ø) 14:58 -


	ˆø—p‚È‚µ

	ƒpƒXƒ[ƒh

500s25—ñ‚Å‚µ‚½‚æ‚ËI
‚±‚ê‚¶‚á‚¾‚ß‚Å‚·‚©H’x‚¢H

Private Sub CommandButton1_Click()()
@@Dim ReadTb() As Variant, fname As String, i As Long
@@Dim R As Long
@@fname = ThisWorkbook.Path & "\" & "AAA.csv"
@@If Dir(fname) = "" Then Exit Sub
@@Open fname For Input As #1
@@i = 0
@@Do Until EOF(1)
@@@ ReDim ReadTb(1 To 1, 1 To 25)
@@@ For R = 1 To 25
@@@@@ Input #1, ReadTb(1, R)
@@@ Next
@@@ i = i + 1
@@@ Range("A" & i).Resize(, 25).Value = ReadTb
@@Loop
@@Close #1
@@Erase ReadTb
End Sub

4 hits

y5751zCSVƒtƒ@ƒCƒ‹‚ðŠJ‚‚Ì‚ÉŽžŠÔ‚ª‚©‚©‚è‚·‚¬ ‚P‚Q‚R 03/5/29(–Ø) 14:04