엑셀에서 api링크 자동 호출하는 방법 문의입니다.  
 글쓴이: 좁쌀생각
, Hit : 729

투피의 만물박사님들께 문의드립니다.



회사에 문자 발송하는 api 가 있습니다.



intranet.aa.com/aaa/sms.aspx?sid="발송자"&si="전화번호"&msg="내용"



이렇게 하면 전화번호로 내용이 송출 됩니다.



이거를 내용이 다르게 1000건정도 발송을 해야하는데... 엑셀로 링크는 다 만들수가 있습니다.



a열에 저 링크를 1000개를 만들어 놓고



이걸 차례로 자동클릭하거나 실행하는 방법이 있을까요?



VBA로 해야 할까요?  혹시 링크 자동 실행하는 부분만 코드라도..



만물박사님들께 도움요청드립니다~ 감사합니다.



 



 
  좁쌀생각
회원님의 소개글이 없습니다.
정보력:1250
친절도:355

sinn
정보력:5470
친절도:13252
 
10-28 17:34
 		저라면 리눅스에서 wget 으로 간단히... ^^
스머프
정보력:250
친절도:53
 
10-28 18:28
 		저도 VBA를 전문적으로 배우지 않아서, 원하는 내용일지는 모르지만, 올려 봅니다.
A2셀에 발송자, B2셀에 전화번호, C2셀에 내용이 있고, 아래쪾으로 자료가 쭉 연속되어 있다는 가정하에 만든 코드 입니다
내용에 블랭크는 '%20'으로 처리해야 해서 중간해 주소변환하는 것 넣었습니다.

Sub 하이퍼링크_주소만들기()
'*********************************************************
'a2셀에 발송자,b2셀에 전화번호, c2셀에 내용이 있으면, d2셀에 주소명을 만들어서넣습니다.
'아래쪽으로 반복헤서 a셀이 빈셀이 만날때 까지 반복 합니다.
'*********************************************************
Dim 발송자변수, 전화번호변수, 내용변수, 주소명, 변환주소명 As String
Dim i, 주소명길이 As Integer

Range("a2").Select
Do
발송자변수 = Trim(ActiveCell.Offset(0, 0).Value)
전화번호변수 = Trim(ActiveCell.Offset(0, 1).Value)
내용변수 = Trim(ActiveCell.Offset(0, 2).Value)

주소명 = "http://intranet.aa.com/aaa/sms.aspx?sid=" & 발송자변수 & "&si=" & 전화번호변수 & "&msg=" & 내용변수

ActiveCell.Offset(0, 3).Select
ActiveCell.Offset(0, 0).Value = 주소명

주소명길이 = Len(주소명)

For i = 1 To 주소명길이
If Mid(주소명, i, 1) = " " Then
변환주소명 = 변환주소명 + "%20"
Else
변환주소명 = 변환주소명 + Mid(주소명, i, 1)
End If
Next i

Selection.Hyperlinks.Delete
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=(변환주소명), TextToDisplay:=주소명

ActiveCell.Offset(1, -3).Select

Loop Until ActiveCell.Value = ""

MsgBox "Done"
End Sub
스머프
정보력:250
친절도:53
 
10-28 18:30
 		다음으로, D2셀 부터 아래로 하이퍼링크 만들어진 주소를 실행하는 메크로 입니다.

성공하시길 바랍니다.

Sub 하이퍼링크_자동클릭하기()
'*********************************************************
'위에서 만들어진 주소가 있는 d2셀의 하이퍼 링크를 실행합니다.
'아래쪽으로 반복헤서 d셀이 빈셀이 만날때 까지 반복 합니다.
'*********************************************************

Dim strHyper As String

Range("d2").Select

Do
strHyper = ActiveCell.Value

ActiveWorkbook.FollowHyperlink Address:=(strHyper), NewWindow:=True

ActiveCell.Offset(1, 0).Select
Loop Until ActiveCell.Value = ""

MsgBox "Done"
End Sub
푸핫
정보력:400
친절도:725
 
10-28 19:58
 		제 블로그에 퍼갈께요 감사합니다.