>OZさん

結構なシステム化が進んでいるようで、すごいですね。
僕はまだ手作業に頼っている部分がかなり多いです。

在庫管理については入出庫と概算損益を計算するシートを作っていて、SUMIFと足し算引き算を使用して、入庫した数から売れた数を引いて現在の個数を求めるという感じの計算をするようにしています。
売れたらその取引での損益が気になるので、入力をし忘れるという事も今のところはありません。
入庫はたまに忘れますが。

OZさんもLibreOfficeを使い始めましたか。
僕はAmazonの在庫チェックのみLibreOfficeで、その他はOpenOfficeを使っています。
LibreOfficeの方が、Ctrl+;で日付一発入力できたりするので、どちらかと言うと使いやすいです。

今回作ったマクロは売れた品物個々の利益率を把握するために
作成しました。　商品の仕入れ価格を在庫管理用テーブルから参照し、
また売れた個数だけ在庫数を減らすマクロになっています。
ebayの出荷待ち商品のデータをCSVでダウンロードして
以前お話したSKU（カスタムラベル）をキーとして仕入れ価格を参照し、
同時に在庫数を減らしています。
これまで手作業で在庫管理していたのですが出荷して安心してしまい
在庫減することを忘れることが多かったのでこれで確実です。
その代わり購入時の在庫登録を忘れるとマイナス在庫になってしまいますが。

Libreofficeのマクロを書くのは初めてで結構苦労しましたが
今日から実戦投入しています。

>OZさん

情報ありがとうございます。

4行目で決め打ちでj+23としていますが、月と日の桁数が変わっても対応できるのかどうかというのがちょっと気になりました。
まず日付で検索して、その位置から最初に出てくる”>”の次から6文字を切り取るようにするといい気がしました。

為替レートの自動取得は僕もやろうとした事があったのですが、細かい変動を気にするよりも自分の設定したレートで見込みの利益を計算する方がよさそうだと思ったので、途中でやめてしまいました。
まあこれも用途によりますね。
僕は今のところ、無在庫の仕入先チェックにしかマクロを使っていないので。
利益は自分の設定したレートで計算しながら、その時点での実際のレートも取得して差を見るようにすれば、大きく変動した際にも比較的早く気付くことができるかもしれません。

まあこれは後で検討してみます。
ありがとうございました。

‘ Get FX rate from 77 bank
Get_FX_rate()
j = instr(sFX_DataLine, Conv_date_format(Paid_on_Date))
destCell.value = val(mid(sFX_DataLine, j+23, 6)

Sub Get_FX_rate()
Dim oFileAcc As Object
Dim sURL As String
Dim oInputStream As Object
Dim vData As Variant
Dim sLine As String
sURL = ConvertToURL(“https://www.77bank.co.jp/kawase/usd2016.html”)
oFileAcc = createUnoService(“com.sun.star.ucb.SimpleFileAccess” )
oInputStream = CreateUnoService(“com.sun.star.io.TextInputStream”)
oInputStream.setEncoding( “S-JIS” )
If oFileAcc.exists(sUrl) Then
vData = oFileAcc.openFileRead(sUrl)
oInputStream.setInputStream(vData)
While NOT oInputStream.isEOF()
sLine = oInputStream.readLine()
sFX_DataLine = sFX_DataLine & sLine & Chr(10)
WEnd
oInputStream.closeInput()
End if
End Sub

>OZさん

いつもありがとうございます。

今回のOZさんのコメントのおかげでwebservice関数が存在するという事に気づき、IEを使ってではなくそこからHTMLソースを取得することを思いつきました。
それでツールをちょいといじって、おかげでまた動くようになりました。
本当に本当に助かりました。
ありがとうございました。
今回のことは今日のブログ記事にしようと思います。

Googleスプレッドシートも結構複雑なことができるんですね。
正規表現というものでしょうか？をあまりよく理解していないので細かくまでは分からなかったのですが、何となくこんな動きをしているというのは掴めたと思います。

eBayのAPIを使って何かしようとは考えたことがありませんでした。
確かに、他のセラーとの比較などが簡単にできるようになると便利ですね。
今はツールよりもリサーチに労力をかけたいメンタルになっていますが、気が向いたらこれも調べてみようと思います。

今回のOZさんのコメントのおかげで、本当に助けられました。
どうもありがとうございました。

OZ

var url = sheet.getRange(‘E5’).getValue();
var opt = {“contentType”:”text/html”,”method”:”get”};
var response = UrlFetchApp.fetch(url,opt);
var html_src = response.getContentText();
var title= html_src.match(/meta name=”title” content=”(.+?)” \/>/);
var price_str = html_src.match(/”a-size-medium a-color-price”>(.+?)/);
var price= price_str[1].replace(“￥”,””);

今でもこのようなコードで取りあえずタイトルと価格を取り出すことができています。
（セルE5にアマゾンの製品リンクを貼り付けています）

私の場合、アマゾンの方はここで中断してしまい
現在はEbayのAPIを使ってリサーチ用のツールを作ろうとしています。
最初の作品はEbayの出品中の品物をタイトルでサーチして
検索に引っ掛かった出品数、タイトル名、ライバルの価格、ユーザー名、評価、
ストア名等の一覧表を作るものです。
一応、リストアップは1000件を上限としていますがEbayの仕様上は
10000件までリストアップすることが可能なはずです。
100件あたり10秒程度で処理できています。
他のセラーと比べた自分の位置を把握でき、かなり参考になりますね。
次は売れた品物をキワードで調べてリストにしてみようと考えているところです。

くれもなさんも次はEbayのAPIに挑戦されてはいかがでしょうか。
私の場合、アマゾンのAPI利用を申請したのですが審査で
却下されてしまいました。

OZ