Option Explicit


Sub csvダウンロード()

 Dim i As Long
 For i = 1 To 5
 
 Dim rgActiveCell As Range
 Set rgActiveCell = ActiveCell
 Dim objInpTxt As HTMLInputTextElement
 Dim s As String
 Dim x As String
 
 s = Worksheets("抽出").Range("I1").Value
 x = Worksheets("抽出").Range("I2").Value
 
 'IE起動
 Dim objIE As InternetExplorer
 Set objIE = New InternetExplorer
 Dim objTag As Object
 
 
 '表示位置とサイズを調整する
 objIE.FullScreen = False
 objIE.Top = 0 '左上 上位置
 objIE.Left = 0 '左上 左位置
 objIE.Width = 940 '横幅
 objIE.Height = 1050 '高さ

 
 
 'サイトを表示
 objIE.Visible = True
 objIE.Navigate ""Do While objIE.Busy = True Or objIE.readyState <READYSTATE_COMPLETE
 DoEvents
 Loop
 
 
 
 '検索キーワードの設定？
 Dim htmlDoc As HTMLDocument 'HTMLドキュメントオブジェクトを準備
 Set htmlDoc = objIE.document 'objIEで読み込まれているHTMLドキュメントをセット
 '申込IDを選択
 objIE.document.getElementsByName("contract")(1).Click
 objIE.document.getElementById("contractId").Value = rgActiveCell 'id検索
 '日付を選択
 Set objInpTxt = objIE.document.getElementsByName("startDate")(0)
 
 With htmlDoc
 .getElementById("startDate").Value = s
 .getElementById("endDate").Value = x
 .getElementById("view").Click
 End With
 

 'もしダウンローﾄﾞボタンがあればクリック、なければウィンドウを閉じる

'保存先を指定して名前を付けて保存

'IE終了
 objIE.Quit
 
 
 '一つ下のセルへ移動してクリック
 ActiveCell.Offset(1, 0).Activate
 
 '指定時間動作を停止
Dim waitTime As Variant
waitTime = Now + TimeValue("0:00:5") '5秒停止
Application.Wait waitTime

 Next i
 
 
 MsgBox "完了"End Sub

Hello 
I invite you to my team, I work with the administrators of the company directly. 
- GUARANTEED high interest on Deposit rates 
- instant automatic payments 
- multi-level affiliate program 
If you want to be a successful person write: 
Telegram: @Tom_proinvest 
Skype: live:.cid.18b402177db5105c             Thomas Anderson 
 
http://bit.ly/34sqlwS

初めまして。TGR Projectの久保と申します。 
 
2020年3月オープン予定の世界最大級のオンラインパチスロ”TGR LAND PROJECT”オーナー権販売のご案内にてご連絡させて頂きました。 
 
TGR LANDとはJTS CONSULTINGが構築するリアルな仮想空間でPlay可能なパチンコゲームです。 
 
パチンコやスロット台の一台一台に利権が用意されており、プレイ時に支払われる所定の手数料をオーナー様にリース料として支払われる仕組みになっております。 
 
ユーザーは世界中の店舗等に置かれているQRコードを通じてログインをしてゲームをPlayが可能となり、台の利権を持ったオーナー様の台がPlayされる度に収益を得る事システムです。 
 
今回はそのプロジェクト第一弾という事で、完全招待制となりますが限定15,000台を99,800円にて販売させて頂きます。 
 
2020年3月スタート予定のこのプロジェクトは稼働開始以降、オーナー様は永続的に収益を得続ける事が可能となります。 
 
またアフィリエイター様も必見です。 
こちらの紹介URLか紹介コードを入れて無料登録を行って頂く事でアフィリエイトコードが発行され、収益を獲得する事が可能です。 
 
無料アフィリエイト登録はこちら→https://tgrland.club/referral/GHRFNePhGAwsR2Mecoqw 
 
アフィリエイター様はサイトやSNS、メディアなどで拡散して頂き、オーナー登録者が出るとその台の権利の一部を報酬として受け取る事が可能です。 
 
■収益モデル 
①スポンサーボーナス  5% 
スポンサーボーナスはあなたが直接紹介した方が契約になると払われるボーナスです。 
 
②ユニレベルコミッション  18％ 
あなたが直接紹介した方が登録になり、その方がさらに登録が続いた場合に 最大10段階まで支払われるボーナスです。 
 
③クリスマスボーナス  15% 
クリスマスボーナスは６スター以上に支払われるシェアリングボーナスです。 
 
※いずれも2020年4月1日より出金可能 
 
詳しい報酬につきましては下記PDFをご覧下さい。 
https://40.gigafile.nu/1212-ba0392f355f7ce183525ba02f98ac40a3 
ダウンロード期限：2019年12月12日(木) 
 
————————————————————————————— 
※※完全招待制。お申し込みは下記コードを必ずご入力下さい。※※ 
紹介コード : GHRFNePhGAwsR2Mecoqw 
 
◾️サービス概要 
https://tgrland.club/front/personal 
 
◾️CM動画 
https://youtu.be/bKzzW5mMVdE 
 
◾️お申し込みフォーム 
https://tgrland.club/referral/GHRFNePhGAwsR2Mecoqw 
————————————————————————————— 
 
JTS Consulting team 
久保寿光 
E-mail : jts.counsulting@gmail.com

def heal(hps):
        for i,index in enumerate(hps):
                print("プレイヤ"+str(i+1)+"のHPが８０回復した！")
        for i,index in enumerate(hps):
                print("プレイヤ"+str(i+1)+"のHP："+str(index+80))
hps=[32,14,22,6]
for index in range(len(hps)):
        print("プレイヤ"+str(index+1)+"のＨＰ："+str(hps[index]))
print("僧侶はヒールを唱えた！")
heal(hps)

offenses =[32,12,21,28,16,23,25,30]
print("勇者の守備力を入力して下さい")
defense =int(input("勇者の守備力："))
for i in range(len(offenses)):
　print("スライム"+str(i+1)+"が現れた！")
print("なんとスライムたちは合体して体当りしてきた：")
sum =0
for j in range(len(offenses)):
　sum+=offenses[j]
damage =sum-defense
if (damage>0):
　print("勇者は"+str(damage)+"のダメージを受けた")
else:
　print("勇者はダメージを受け付けない！")map =[
0, 0, 0, 0, 0, 0, 0,
0, 1, 2, 0, 0, 0, 0,
0, 2, 0, 0, 2, 0, 2,
0, 0, 0, 0, 0, 0, 1,
0, 0, 0, 0, 0, 0, 2,
0, 0, 2, 1, 0, 2, 0,
0, 0, 0, 0, 0, 2, 0,
0, 0, 0, 0, 0, 2, 0,
0, 0, 0, 0, 2, 1, 0]
print("__________")
for i in range(0,7*9,1):
　if (map[i]==0):
　　print(" ",end="")
　elif (map[i]==1):
　　print("* ",end="")
　elif (map[i]==2):
　　print("x ",end="")
　if((i+1)%7 ==0):
　　print("")
print("__________")
print("どこを調べますか？")
x =int(input("横の座標（0~6まで）："))
y =int(input("縦の座標（0~8まで）："))
print("勇者は("+str(x)+","+str(y)+")を調べた")
if map[x+y*7]==0:
　print("しかし何も見つからなかった")
elif map[x+y*7]==1:
　print("なんと小さな宝石を見つけた")
elif map[x+y*7]==2:
　print("グールが現れた")
def heal(hps):
　for i,index in enumerate(hps):
　　print("プレイヤ"+str(i+1)+"のHPが８０回復した！")
　for i,index in enumerate(hps):
　　print("プレイヤ"+str(i+1)+"のHP："+str(index+80))
hps =[32,14,22,6]
for index in range(len(hps)):
　print("プレイヤ"+str(index+1)+"のＨＰ："+str(hps[index]))
print("僧侶はヒールを唱えた！")
heal(hps)

def heal(hps):
　for i,index in enumerate(hps):
　　print("プレイヤ"+str(i+1)+"のHPが８０回復した！")
　for i,index in enumerate(hps):
　　print("プレイヤ"+str(i+1)+"のHP："+str(index+80))
hps =[32,14,22,6]
for index in range(len(hps)):
　print("プレイヤ"+str(index+1)+"のＨＰ："+str(hps[index]))
print("僧侶はヒールを唱えた！")
heal(hps)

print('Hello an')
    print('Hello an')
  print('Hello an
      print('Hello an')

import puppeteer from 'puppeteer-core'
const getDefaultOsPath = () => {
    if (process.platform === 'win32') {
        return 'C:\\Program Files (x86)\\Google\\Chrome\\Application\\chrome.exe'
    } else {
        return '/Applications/Google Chrome.app/Contents/MacOS/Google Chrome'
    }
}
let browser = await puppeteer.launch({
    executablePath: getDefaultOsPath()
}))

print('Hello Deguchi')